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Preface 



This publication describes how to write telecommunications 
application programs to run under control of the communi- 
cations control program (CCP). The CCP is a feature of 
disk system management that facilitates the implementation 
of telecommunications applications on the Model 10 Disk 
System and Models 12 and 15. 

This manual is intended for programmers who use one or 
more of the following System/3 programming languages; 

• RPG II 

• Subset American National Standard (ANS) COBOL 

• FORTRAN IV 

• Basic Assembler 

The introduction to this manual summarizes the purpose 
and operation of the CCP. Subsequent chapters describe 
the standard application program interface to the CCP, 
examples of typical application program logic, application 
programming in COBOL, FORTRAN IV, RPG II, and 
Basic Assembler, preparing source programs to run under 
the CCP, program testing, and use of the optional 3270 
display format facility of the CCP. 

Sy$tem/3 Model 8 

The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although Model 8 is 
not referenced. However, the integrated communications 
adapter (ICA) and local display adapter are available on the 
Model 8. If you have the ICA or local display adapter, it is 
always designated on BSCA line 2. Therefore, you must 
specify line 2 whenever it is required, or enter the BSCA 
OCL statement (// BSCA LINE-2) at execution time. 



Prerequisites 

The CCP application programmer need not have extensive 
previous knowledge of telecommunications networks, data 
link control, and the characteristics of specific terminal 
devices. This manual assumes, however, that the program- 
mer has a working knowledge of his programming language 
and is familiar with the configuration of the CCP system 
in his installation. 

This manual has no specific prerequisite publications; however, 
many references are made to the following manuals that 
are required by the programmer using the Model 10 Disk 
System and Model 12, and Model 15 respectively: 

• IBM System/3 Models 10 and 12 Communications 
Control Program System Reference Manual, GC21-7588 

• IBM System/3 Model 15 Communications Control 
Program System Reference Manual, GC21-7620 

Also, in order to fully utilize the display format facility 
of the CCP, the programmer must have a basic understand- 
ing of the concepts and operation of the IBM 3270 
Information Display System as given in IBM 3270 Informa- 
tion Display System Component Description, GA27-2749. 

Other publications that are useful to the programmer are 
listed in Appendix C: Bibliography. 



It should be noted that not all devices and features which 
are available on the Model 10 are available on the Model 8. 
Therefore, Model 8 users should be familiar with the 
contents of IBM System/3 Model 8 Introduction, 
GC21-5114. 
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How To Use This Manual 



In order to gain an overall understanding of the require- 
ments for writing application programs under the CCP, 
read chapters 1, 2, and 3 before reading the chapter that 
applies to your programming language. These chapters 
contain: 

Chapter 1 : Summary of the purpose and operation of the 
CCP. 

Chapter 2: Description of the application program inter- 
face to the CCP, independent of any particular program- 
ming language. 

Chapter 3: General description of terminal classes, pro- 
gram types, and CCP application program logic. 

After you have read the first three chapters, read 
thoroughly the chapter that applies to your programming 
language: 

Chapter 4: COBOL 

Chapter 5: FORTRAN IV 

Chapters: RPG II . 

Chapter 7: Basic Assembler 



If your program will use the 3270 Display Format 
Facility of the CCP to communicate with components of 
the IBM 3270 Information Display System, read chapter 8 
after you have an understanding of CCP application pro- 
gramming in your language. 

Before attempting to write a CCP application program, be 
sure to read Chapter 9: Program Preparation, since that 
chapter contains important disk and unit record file con- 
siderations you must be aware of. 

Reference Aids 

The appendixes provide convenient summaries of applica- 
tion program operation codes and return codes as well as 
a glossary of terms and a bibliography. 

Use the index at the end of the manual to locate specific 
subjects. 



Chapter 1 : Introduction 



The Communications Control Program (the CCP) is a 
system control program feature of the IBIVI System/3 Model 
10 Disk System, IBM System/3 Model 12, and IBM 
System/3 Model 15 designed to facilitate the development 
and implementation of telecommunications applications. 
The CCP serves as the control program of a telecommunica- 
tions subsystem, operating in conjunction with disk system 
management (referred to by the abbreviation DSM in this 
manual). 

Under the CCP, an online network of terminals can call 
application programs as needed and access a common set 
of disk files. If sufficient main storage is available, the 
CCP permits several application programs to be executing 
concurrently under its control. 

Communications application programs to be run under 
control of the CCP can be written in any of the high-level 
languages available with Models 10, 12, and 15 - RPG II, 
COBOL, and FORTRAN IV - and in Basic Assembler. 
Individual application programs can be written without 
detailed knowledge of the requirements for programming 
under a telecommunications system and, with few excep- 
tions, as though they are to be run individually, with access 
to all system resources. 

With the facilities provided by the CCP, the System/3 can 
be used either as a host system or as a subhost system: 
Host System: The System/3 is the central controller of a 
network of start-stop and/or binary synchronous terminals. 
Subhost System: The System/3, while directly controlling 
a group of terminals, is itself a tributary station to a large 
central processor, such as System/370. 

Note: For an introduction to the CCP that includes more 
detailed descriptions of CCP services and relationships be- 
tween the CCP and other System/3 programs, see the CCP 
System Reference Manual, GC21-7588 for Models 10 and 
1 2, GC21 -7620 for Model 1 5. If you are not acquainted 
with terms and abbreviations used in this manual, you can 
find definitions either in Appendix B. Glossary at the end 
of this manual, or in IBM Data Processing Glossary, 
GC20-1699. 



COP STAGES 

Establishing and operating the CCP in a particular environ- 
ment is accomplished in three stages: 

• Generation 

• Assignment 

• Operation 

Generation Stage 

CCP generation is the process whereby your installation 
creates its individual version of the CCP. The purpose 
of generation is to establish the required capabilities of the 
CCP by creating a set of CCP object modules and sub- 
routines, unique to the requirements of your installation. 
The process of generation involves: 

1. Describing the type of equipment to be used by the 
communications system and other permanent features 
of the CCP system. 

2. Creating a set of control routines whose specific 
content may be unique to your installation. 

3. Joining the routines by a link-editing process. 

4. Copying appropriate additional supporting routines. 

5. Initializing the control file that the assignment stage 
and the operational stage use ($CCPFILE). 

CCP Generation is described in CCP System Reference 
Manual, GC2 1-7588 for Models 10 and 12, GC2 1-7620 for 
Model 15. 
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Assignment Stage 

CCP assignment stage is a brief process by whicJi one or 
more sets of specific environments in wliicin the CCP can 
run are defined. Each set includes: 

• Specific items of information pertaining to the entire 
CCP, such as the current password. 

• Programs that may be run under the CCP and the 
resources that each requires. 

• Files that are accessible to each program. 

• The current line/terminal configuration. 

• Symbolic terminal names and the actual terminals to 
which they apply. 



Operational Stage 

The operational stage begins with operational startup, when 
the CCP is loaded into main storage. During startup, CCP 
routines open disk files, adapters, and communication lines 
and complete various tables and control blocks. During 
operation, the CCP supervises the environment in which 
your application programs run and provides communi- 
cations services to your programs. The operational stage 
is concluded by shutdown, which is initiated by the system 
operator. During shutdown, the CCP allows programs 
that are currently executing, or that are currently scheduled 
or chained, to finish processing, then it closes communica- 
tion lines, adapters, and files. 

See CCP System Operator's Guide, GC21-7581 for Models 
10 and 12, orGC21-7619for Model 15 for a detailed de- 
scription of CCP operation. 



• Terminal attributes. 

The assignment run need be repeated only when some of 
the specific information given in a previous assignment run 
must be changed. For example, CCP assignment must be 
repeated when new programs and files are to be used under 
the CCP. 

As a programmer, you must be familiar with the contents 
of the CCP assignment sets, since you must be aware of 
characteristics of files, terminals, and communication 
lines available to programs you write. You can determine 
the contents of assignment sets from the listing produced 
by the Assignment List program. 

See CCP System Reference l\4anua/, GC21 -7588 for Models 
10 and 12, GC21-7620 for Model 15, for detailed informa- 
tion about CCP Assignment. 
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TERMINALS AND FEATURES SUPPORTED 

The following terminals may be used with the communica- 
tions control program. 

Through the multiple line terminal adapter: 

• 1050 Data Communication System 

Switched 

Multipoint nonswitched 

• 2740 Communication Terminal Model 1 

Basic 

Checking 

Dial 

Dial with checking 

Dial with transmit control 

Dial with transmit control and checking 

Station control 

Station control with checking 

• 2740 Communication Terminal Model 2 

Station control 

Station control, checking 

Station control, buffered receive 

Station control, buffered receive, checking 

• 2741 Communication Terminal 

Elasic 
Switched 

• 3767 Communication Terminal (when simulating a 
2740 Model 1 ) 

Checking 

Dial with checking 
Station control, checking 
(when simulating a 2740 Model 2) 
Eltation control, checking 

• 3767 Communication Terminal (when simulating a 2741 ) 

Eiasic 
Switched 

• Communicating Magnetic Card SELECTRIC® Type- 
writer (appears identical to a 2741 switched) 

f*oint-to-point switched 

• System/7 (appears identical to a 2740 Model 1) 

Checking 

Dial with checking 

Station control with checking 



• 5100 Portable Computer (when simulating a 2741) 

Basic 
Switched 

• 5230 Data Collection System (appears identical to a 3741 
Model 2 or 4) 

Point-to-point switched 
Point-to-point nonswitched 

With the binary synchronous communications adapter: 

• 3270 Information Display System 

Multipoint nonswitched 

• 3275 Information Display Station 

Switched 

• 3735 Programmable Terminal 

Switched 

Multipoint nonswitched 

• 3741 Data Station Model 2, Programmable Work 
Station Model 4 

Point-to-point nonswitched or switched 
Multipoint 

• System/3 

Point-to-point switched 
Point-to-point nonswitched 
Multipoint with the CCP as control station 
Multipoint with the CCP as a tributary 

• System/7 Feature 2074 or RPQ (see Note) 

Point-to-point switched 

Point-to-point nonswitched 

Multipoint with the CCP as control station 

• System/360, System/370 

Point-to-point switched 
Point-to-point nonswitched 
Multipoint with the CCP as tributary 

Terminals that are equivalent to those explicitly supported 
may also function satisfactorily. The customer is respon- 
sible for establishing equivalency. IBM assumes no respon- 
sibility for the impact that any changes to the IBM-supplied 
products or programs may have on such terminals. 

Note: Under BSCA, the System/7 is supported only as 
it is supported by the Multiline/Multipoint BSCA IOCS - 
see IBM System/7 (RPQ) Binary Synchronous Module Pro- 
gramming Guide and Reference Manual, SC34-1510. 
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Chapter 2: Standard Application Program Interface To The CCP 



The standard interface (that is, the procedures and common 
data areas) used by application programs to request the 
CCP to perform communications operations with remote 
terminals or the system operator's console is composed of 
the following basic elements: 

• Communications Service Subroutine 

• Parameter List 



• Record Area 

• A set of communications operations that can be issued 
to the CCP 



The details of this interface differ slightly among the 
programming languages-RPG II, COBOL, FORTRAN IV, 
and Basic Assembler— but the functions performed by the 
basic elements remain essentially the same. Where the 
interface for a particular language differs from the standard 
interface, you are referred to the chapter covering that 
language. 



events has occurred, the terminal is free to be allocated to 
another program (or to enter commands, if it is a command 
terminal). Because the CCP also allocates the use of unit 
record devices, you can code I/O operations using these 
devices as though your program has exclusive control of 
them. (Exception for Model 15 CCP: Your program can 
share use of the 1403 printer with another program running 
concurrently if PRINTER-SHR is specified in the 
PROGRAM assignment statement for your program [see 
CCP System Reference Manual] . You should consider in 
the design of your program that you do not have exclusive 
control of the printer.) 

CCP may receive a request for a program that uses: 

• A terminal that is presently allocated to another program. 

• A disk file that is allocated to another program in such a 
manner that the access methods conflict. For example, 
a currently executing program adds consecutively to a 
file and the program being requested adds to the same 
file. 



In order to perform a communications operation, such as 
writing a message to a terminal, an application program 
must do the followflng: 



• A disk file is specified as NOSHRon the FILES param- 
eter of the PROGRAM assignment statement or as 
SHARE-NO on the FILE OCL statement. 



1. Provide storage space within itself for a parameter 
list land record area and specify the format of these 
areas. 

2. Prepare the record area for the operation. 

3. Set the contents of the parameter list. 

4. Invoke the communications service subroutine to 
perform the operation. 

5. Check appropriate return codes to determine the 
result of the operation. 

Since your program may be competing with other programs 
for system resources such as terminals, disk files, and unit 
record devices, the CCP ensures that these resources are 
available to your program before your program is allowed 
to run. Each terminal required by your program is allocated 
exclusively to your program until your program releases it 
(see index entry Release Terminal Operation) or until the 
execution of your program has ended. When either of these 



The CCP rejects such a program request or queues it, depend- 
ing on the queue status of the terminal (see /Q and /NOQ 
commands in CCP Terminal Operator's Guide, GC21-7580). 
When the previous program has terminated, terminals and 
disk files used by that program are available to subsequent 
programs. 

Note: Model 1 and Model 1 2 CCPs can also queue (/Q) a 
request for a program that uses a unit record device that is 
temporarily unavailable. Model 15, however, normally 
rejects requests for programs that require a unit record 
device that is unavailable. The exception is if the requested 
program uses the printer and the printer is either perma- 
nently allocated to the CCP partition, or spool is intercept- 
ing the CCP partition, and the requested program uses no 
other unit record devices or terminals. 
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COMMUiMICATIONS SERVICE SUBROUTINE 

Since RPG II, COBOL, and FORTRAN IV, do not include 
special statement types for general purpose terminal I/O 
operations and other communications services (see 
Operations), the CCP provides one or more communications 
service subroutines to application programs written in each 
language. (For Basic Assembler Programs, a macro Instruc- 
tion is provided — see index entry $NC/0 macro.) The 
communications service subroutine converts the application 
program's request into a standard request to the CCP 
communication facilities. 

The communication service subroutine (RPG II programs 
may actually use more than one) must be link edited to 
each application program prior to using the program under 
the CCP. Thus, the communication service subroutine, 
although provided by the CCP, actually becomes a part of 
the application object program. See Chapter 9: Program 
Preparation for procedures for preparing an application 
program to run under the CCP. 

In COBOL and FORTRAN IV, the application program 
initiates a communications operation by issuing a CALL 
statememt to the communications service subroutine. 
In RPG III, the program can initiate an operation and 
invoke the communications service subroutine either 
through the SPECIAL or EXIT/RLABL facilities of the 
language. 



PARAMETER LIST 

You must provide a parameter list within your program 
with each request for a communications operation. The 
parameter list specifies the details of the communications 
operation and provides locations within itself where the 
CCP returns information about the results of the operation. 
This chapter describes the parameter list as it is presented 
by the comniunications service subroutine to the CCP 
communications facilities. In RPG II, the parameter list 
as defined in the user program is somewhat different (see 
OiapterB: RPG II). 

The parameter list is 16 positions long, consisting of eight 
two-position fields, as shown in Figure 2-1. 

Return Code (Positions 0-1) 

Although this field (see Figure 2-1) must be provided in 
the parameter list, the CCP ignores the contents at the 
beginning of the operation. At the completion of each 



operation, before returning control to the application 
program, the CCP places a value in this field indicating the 
status of the operation: 

• Operation completed normally (value of zero). 

• Operation resulted in an I/O error (negative value). 

• Operation resulted in an exception condition (positive 
value). 

Specific return code values and meanings are given in 
Appendix E: Return Codes. 
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Note: In RPG II, the format of the parameter list is 
somewhat different (see Chapter 6: RPG II). 



Figure 2-1. Parameter List 
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In order to determine the results of a communications 
operation, you must include coding in your program to 
test the return code. The degree of return code checking 
and the actions taken based on return code checking will 
vary in different applications, however, it is strongly 
recommended that return code checking at the level of 
normal completion (zero return code) or abnormal comple- 
tion (non-zero return code) be done in all programs. 



Output Operations: This field must contain the length of 
the data to be transmitted from your program, that is, the 
number of characters of data you wish to write from the 
record area in your program, not including the six positions 
for the symbolic terminal name and not including line 
control characters, which are added to your data by the CCP. 
(In RPG II, the output length is placed in the output record 
area; see Chapter 6.) 



Examples of testing return codes are given in chapters 4 
through 6. Recommended actions to be taken by your 
program for each return code are given in Appendix E. 
RPG II programmers should see Chapter 6: RPG II for 
additional information concerning handling of return 
codes in that language. 



Operation Code (Positions 2-3) 

For each communications operation (except some RPG II 
operations), this field must contain a code that indicates 
the specific operation to be performed. The contents of 
this field are the same after completion of the operation 
as when the operation began. See Operations, later in 
this chapter, for descriptions of the valid operations and 
operation modifiers that can be issued to the CCP by an 
application program. 



Tliird Field (Positions 4-5) 

This field in the parameter list can contain four different 
kinds of information: 

1 . Output Length - provided by your program for 

output operations (see Output Operations, following) 



Input Operations: On each completed input operation, the 
CCP calculates and places into this field the actual length of 
the input data passed to the application program. This 
effective input length does not include the symbolic ter- 
minal name, line control characters, backspace characters, 
or data which the CCP cannot pass to the application pro- 
gram when the amount of data received exceeds the size 
of the record area (see Maximum Input Length, the next 
field in the parameter list). However, the effective input 
length does include record separator characters (see index 
entry record separators). The CCP ignores the contents of 
this field at the start of an input operation. 

\idata mode escape is allowed in your CCP system (see 
index entry) and a terminal enters the /RELEASE command 
after entering the data mode escape characters, your pro- 
gram will receive a 08 return code from any of the follow- 
ing input operations: Get, Accept Input, Put-Then-Get, 
and Stop Invite Input (see index entries). The 08 return 
code indicates that the terminal to which the input opera- 
tion was issued is no longer available to your program. In 
this case, CCP places the current number of outstanding 
Invite Inputs for your program (see index entry) in positions 
4-5 of the parameter list. This information is important in 
multiple requesting terminal (MRT) programs (see index 
entry). 



2. Effective Input Length - returned by the CCP (see 
Input Operations, following) 

3. Terminal Attributes Identifier - provided by your 
program (see Acquire Terminal Operation, following) 

4. Count of Outstanding Invite Input Operations — 
returned by the CCP (see Input Operations and 
Release Terminal Operation, following) 



Acquire Terminal Operation: If you issue an Acquire 
Terminal operation (see index entry) which sets the attri- 
butes of the terminal to be acquired, this field must identi- 
fy the attribute set you want to assign to the terminal. The 
terminal attribute set is defined in the TERMATTR assign- 
ment statement - see CCP System Reference Manual. 

Release Terminal Operation: If your program releases a 
terminal (see index entry Release Terminal operation) 
and receives a zero return code from the operation, CCP 
places the current number of outstanding Invite Inputs 
for your program (see index entry) in the third field 
(positions 4-5) of the parameter list. 
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Maximum Input Length (Positions 6-7) 

On each operation involving input data, you must enter a 
value into this field representing the maximum number of 
bytes of input data you expect to receive. This value does 
not include the six characters for the terminal name. This 
value must be greater than zero and no larger than the 
size of the record area provided by your program. The CCP 
does not alter this value during the operation. 



Name 
Field 



Data Area 



_L 



6 positions Number of positions specified by programmer 
Figure 2-2. Standard Record Area 



Address of the Record Area (Positions 8-9) 

This field is set by the communications service subroutine 
(except in Basic Assembler, where this field is set by the 
$NCIO macro) to contain the main storage address of the 
record area (see Record Area). This field addresses the first 
(leftmost) position of the name field in the record area, not 
the first position of data; therefore, the data actually begins 
at the address given, plus six. For operations not involving 
data transfer, this field may point to a record area contain- 
ing only the name field. 

This field is not present in the parameter list used by 
RPG II application programs. 



CCP Work Area (Positions 10-15) 

These positions are used for a work area by the CCP. Your 
program must not use these positions. 



RECORD AREA 

With each communications operation your program issues 
to the CCP (except Shutdown Inquiry), it must provide a 
record area. A record area is an area in the application 
program that consists of two parts. The standard record 
area for operations involving data transfer consists of a 
six-position name field followed by a data area (Figure 2-2). 
Exceptions to this standard format occur for RPG II (see 
Chapter 6: RPG II) and when the 3270 Display Format 
Facility (see index entry) is used. 

The name field contains either the name of the program (if 
a chained task operation), or the symbolic terminal name 
that is to be involved in the operation. 

The parameter list field containing the record area address 
(Figure 2-1) always points to the leftmost position of the 
name field. Data transfer, however, always occurs into and 
out of the data area segment of the record area. Lengths 
specified in the parameter list for operations involving data 
transfer refer to the length of the data area portion of the 
record area, except in certain RPG II output operations. 



Program Name 

The program name Is the name of the program to be called 
on a Chain Task Request operation (5704-SC2 only). For a 
task chain operation, your program must place the name of 
the program to be chained in the first six positions of the 
record area (left-justified and padded with blanks if less than 
six characters). If data is to accompany the chain request, 
the data follows the program name in the record area, and 
PGMDATA-YES must be specified on the PROGRAM 
assignment statement (see the l\/lodel 15 CCP System 
Reference Manual, GC21-7620) for the requested program. 



Symbolic Terminal Name 

The terminal with which a communications operation is 
performed is identified by a symbolic terminal name in the 
first six positions of the record area (left justified). In most 
operations, the application program must place the name 
into the name field of the record area to specify the termi- 
nal with which to operate; in certain operations, however, 
the CCP places the name into the record area to inform the 
program with which terminal the operation took place. 
Each symbolic terminal name refers to a specific physical 
terminal device. 

Three classes of terminal names are available for use in 
application programs: 

1. User-Defined Names: These are the terminal names 
defined in TERMNAME statements during CCP 
assignment. The structure of these names must 
conform to the following rules: 

• The first character must be alphabetic (including 
#, $, and @). 

• Each succeeding character can be either alphabetic 
or numeric. 

• One to five of the six possible positions in the 
name can be blank, but no blanks may be 
embedded between other characters. For example, 
the following names are valid: TERMWiS, 
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: the following are invalid: TERM|i42, 
»TERM2. 

• Each terminal name must be unique. 

• The names CONSOL, ALL, and a name consisting 
of six blanks cannot be user-defined. 

2. CONSOL: On the System/3 Model 10 and Model 12, 
the symbolic name CONSOL refers to the system 
operator's 5471 Printer/Keyboard. On the Model 15, 
the symbolic name CONSOL refers to the system 
operator's keyboard and 3277 Display Station, re- 
ferred to as the CRT/Keyboard. Application pro- 
grams can communicate with the system operator's 
console at any time; however, the console is never 
allocated to the program. Operations issued to the 
console by programs running under the CCP must 
be issued as communications operations; if issued in 
any other way, the results are unpredictable. The 
only operations that can be issued to the console are: 



• Put 

• Put-No-Wait (handled as a Put by the CCP) 

• Put-Then-Get 

• Get Attributes 

• Accept Input (to accept only data that accompanies 
the program request) 

The CCP automatically releases the console from any 
program it requests as follows: 

• If the console requested the program and the 
PROGRAM assignment statement (see CCP 
System Reference Manual) specifies PGM DATA- 
NO, the console is released when the program 

is loaded. 

• If the console requested the program and the 
PROGRAM assignment statement specifies 
PGMDATA-YES, the console is released after an 
Accept Input operation results in the console 
program data being passed to the user program. 

Note to Model Wand 12 users: Programs that use 
symbolic files (see index entry) must allow data to 
be entered with the program request if they could 
be requested by the console (see program request 
command m CCP System Operator's Guide). These 
programs must also open all physical files to be 
referenced by a symbolic file prior to issuing an 
Accept Input operation. (In RPG II, these files are 



automatically opened prior to the first input 
operation.) 

3. Blanks: Programs that handle only one requesting 
terminal per execution (de%\Qnate6 single requesting 
terminal (SRT) programs, see index entry), can issue 
communications operations with six EBCDIC blanks 
(hexadecimal 40) in the symbolic terminal name por- 
tion of the record area. The CCP interprets the blank 
name as a reference to the terminal that requested the 
program. Upon completion of such an operation, the 
CCP sets the first six positions of the record area to 
contain the name of the requesting terminal. The 
program cannot use blanks after it has released the 
requesting terminal (see index entry Release Terminal 
operation). 

The use of symbolic names for terminals allows programs 
to be relatively independent of the specific terminals. How- 
ever, the programmer must be aware of the type of terminal 
he is using since he must know the record length of the 
device; whether the terminal is capable of input only, out- 
put only, or both input and output; and other information 
(see Index entry Get Attributes). The system operator 
can reassign a symbolic name of a terminal (perhaps the 
terminal is out of order or offline) to a different terminal 
during operation of the CCP to allow execution of pro- 
grams using that terminal name. 

Of those operations requiring a six-position symbolic 
terminal name area in the record area (only Shutdown 
Inquiry does not) only Accept Input does not require that 
the area contain a valid symbolic terminal name. The 
contents of the terminal name field for that operation are 
not used by the CCP. 

Whenever you specify a symbolic terminal name other than 
CONSOL in an operation, you must ensure that the termin- 
al is allocated to your program under that defined name. 
The only exceptions to this rule are tUe Acquire Terminal 
operation, (see index entry) which is a request to obtain 
a terminal, and Get Terminal Attributes, (see index entry) 
which can be requested for any defined terminal name in 
the system. 



Multicomponent Terminal Considerations 

Multicomponent terminals are a special class of terminals 
that can have more than one input and/or output device 
attached. The 1050 Data Communications System is the 
only terminal currently supported by the CCP that is 
considered to be a multicomponent terminal. (Each 
component of the 3270 Information Display System is 
considered a separate terminal and has its own name.) 



Standard Application Program Interface to the CCP 2-5 



A 1050 system is treated by CCP as if it were one terminal 
regardless of the number of components attached. For 
example, the entire 1050 system is always allocated to a 
program; it is impossible for one component to be allocated 
to one program while another component of the same 1050 
system is allocated to another program. Therefore, any 
program in control of a 1050 system has access to all 
components of that particular 1050 system. 

As with every other terminal in the CCP system, the 1050 
has a symbolic terminal name. However, this symbolic 
terminal name has a principal input and principal output 
component associated with it. When the symbolic terminal 
name is used in an operation, it refers to the principal 
components. 

You can address other than the principal input and/or 
principal output component of a 1050 system. In addition 
to the symbolic terminal name, you can assign symbolic 
names to a component or pair of components. These are 
called symbolic sub-terminal names. To direct an operation 
to a specific component, use the symbolic sub-terminal 
name associated with that component. 

The following special rules apply to use of multicomponent 
terminals: 

• Only one Invite Input operation (see index entry) may 
be outstanding to the terminal at one time, regardless of 
the number of input components attached to the 
terminal. 

• When an operation is issued in which CCP returns a 
symbolic terminal name, such as Accept Input, the 
name returned is always the master terminal name, 
never a symbolic sub-terminal name. 

• The Acquire Terminal operation must specify a symbolic 
terminal name, not a symbolic sub-terminal name. 

• The Release Terminal operation must specify a symbolic 
terminal name, not a symbolic sub-terminal name. 



DATA TRANSFER AND TRANSLATION 

The CCP either moves data into your record area or out 
of your record area during a communications operation, 
according to the operation you specify in the Operation 
Code field of your parameter list. In order to know how 
data is transferred to or from a specific terminal, what the 
CCP does with the data, and what your program must do 
with the data, you must know what attributes are assigned 
to the terminal (for example, whether or not a 3270 is 
using the Display Format Facility). 



Terminal Attributes 

TERMATTR assignment statements (see CCP System 
Reference Manual) define terminal attribute sets for ter- 
minals used under the CCP. Each attribute set is assigned an 
identification number. This number is then referenced 
in a BSCATERM or MLTATERM assignment statement 
to assign a particular set of attributes to a terminal. A 
terminal may have different attributes at different times 
and a single attribute set can be used by more than one 
terminal. See Get Attributes and Acquire Terminal for 
additional information about terminal attributes. 

The terminal attribute sets specify the following informa- 
tion about terminals: 

For BSCA and MLTA terminals: 

• Whether or not the CCP will translate data sent to or 
received from the terminal. 

• If data is to be translated, whether to force the data to 
uppercase EBCDIC. 

• Whether the terminal is auto or manual answer (if on 
a switched line). 

For BSCA terminals only: 

• Record length 

• Block length 

• Input data mode (record, block, or message) 

• Whether or not the EBCDIC transparency feature is used 

• ITB (intermediate text blocks) used 

• Variable length or spanned records used 

• 3270 Display Format Facility used 

For BSCA terminals on switched lines only: 

• Whether or not the CCP will verify exchange identifica- 
tion sequences 

• Whether the terminal is auto or manual call 

Input Data Transfer 

Data received from a terminal as the result of an input 
operation (see Operations) is moved by CCP from the com- 
munication line buffer to your program's record area. Data 
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is received in the seventh and succeeding positions of your 
record area (the program or symbolic terminal name re- 
sides in positions 1-6 of the record area), except in the 
following instances: 

• In RPG II, data may begin in a different position (see 
Chapters: RPG II). 

• In 3270 Display Format Facility operations, the format 
of the record area varies with different operations (see 
Chapter 8: 3270 Display Format Facility). 

CCP removes all teleprocessing line control characters from 
terminal input data it moves to your record area, except in 
the following cases: 

1 . For BSCA terminals, the ITB (intermediate text 
block) character is not removed from input data 
unless fixed length records are being processed in 
ITB record mode, with the correct record length. 
When using variable length records, the record 
separator character is returned in the record area 
as the last character of data. The effective input 
length returned in the third field of the parameter 
list includes the record separator character. 

2. Programs that communicate with 3270 terminals 
without using the Display Format Facility will 
receive and must send the actual data and display 
control characters necessary for the 3270, such as 
Escape Command, Set Buffer Address, Start Field, 
buffer addresses, and others (see Example 1 in 
chapters 4, 5, and 6 for specific examples in COBOL, 
FORTRAN, and RPG II). 

3. For programs not using PRUF (program request 
under format) that are requested by 3270 terminals, 
the data appended to the program request is not 
processed by the Display Format Facility but is 
passed directly to the user program. See Chapter 3: 
Communications Programming Topics, for further 
description of PRUF. The data is provided in the 
program record area as a continuous string, but 
with no 3270 display control characters. 

The length of the data depends on the value specified in the 
SYSTEM assignment statement (see Assignment Stage in 
the IBM System/3 CCP System Reference Manual for your 
system). The maximum length of the data appended to the 
program request is the value of the PGMREQL parameter 
minus the length of the program name and one blank. 
Since 80 is the maximum value of PGMREQL, the maximum 
length of data that can be appended to the program request 
is 78 characters; any further data in the 3270 buffer at the 



time of the program request is not sent to the program. A 
positive input return code is posted if the data length 
exceeds the length specified. The return code can be tested 
and appropriate action taken. 

For PRUF programs, more than 78 characters of program 
request data can be sent to the user program. The length of 
the data sent to the program can be up to the maximum 
length specified in the PRUFLNG parameter of that pro- 
gram's PROGRAM statement {see Assignment Stage in the 
IBM System/3 Models 10 and 12 Communications Control 
Program System Reference Manual, GC21 -7588, or the 
IBM System/3 Model 15 Communications Control Program 
System Reference Manual, GC21 -7620). If the program 
being requested is a PRUF program, CCP will pass the entire 
3270 text stream, control characters and data, to the user 
program at program request time. If PRUF$Z was specified 
on the PROGRAM statement at assignment time, PRUF 
program request data is handled by the display format 
facility. See Chapter 3: Communications Programming 
Topics for a further description of PRUF. 

For chain task requests with data, the maximum amount of 
data that can be transferred is determined by the size of the 
teleprocessing buffer. If other users are active or the tele- 
processing buffer is fragmented, the area for a chain task 
request with data can be further reduced. If the chained 
task is a sort program, the maximum amount of data that 
can be passed by the requesting program is 80 characters. 



Input Data Translation 

The attribute set associated with a terminal specifies 
whether or not data received from that terminal is to 
be translated from the line transmission code (if other than 
EBCDIC) to EBCDIC. If translation is specified, the 
attribute set also indicates whether or not to force to 
upper case all alphabetic characters received. 

Note: All input, including PRUF input, received from a 
terminal in command mode is forced to upper case. 



EBCDIC Transmission Code Used or Translation Requested 

If the transmission code is EBCDIC, or if translation is 
requested, data is presented in EBCDIC in the record area. 
(If translation is requested, the data is converted to 
EBCDIC by the CCP.) No teleprocessing line control 
characters are included in the data except for the BSCA 
ITB character mentioned under Input Data Transfer. For 
MLTA, backspace characters sent from the terminal are 
not received in the data area; rather, the input data is 
received with all backspacing resolved. Also, if the last 
character of the input is a carriage return, the CCP removes 
it from the input data. 
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All other device control characters (such as 3270 control 
characters, tab key, carriage return in the middle of text) 
are treated as input data characters, Whether or not lower 
case alphabetic characters are translated to their correspond- 
ing upper case characters is determined by the attribute set 
currently associated with the terminal. If upper case trans- 
lation is specified, all alphabetic data input appears in 
upper case EBCDIC in your program's record area. 

if the length of the data received is greater than the maxi- 
mum input length specified, the excess data is lost 
(truncated) and the effective input length equals the maxi- 
mum input length. If the data length received is less than 
the maximum input length, the effective input length is 
set to equal the data length received, and the remainder 
of your record area is cleared to blanks up to the maxi- 
mum input length. 



Transmission Code Not EBCDIC and Translation Inhibited 

If the transmission code is not EBCDIC and the terminal 
attributes do not specify translation, the CCP places data 
into the record area as it is received, including backspace 
characters, but not including line control characters. The 
application program must be prepared to translate data 
to EBCDIC If the data is to be processed by the program. 
If more data is received than was specified as maximum 
input length in the parameter list, the excess data is lost 
and the CCP sets the effective Input length equal to the 
maximum input length. If the data received is less than 
the maximum specified, the CCP sets the effective input 
length to the number of input characters received. The 
record area positions beyond the effective input length are 
set to blanks (X'40') (except for MLTA terminals under 
Model 10 and Model 12 CCP, when the content is 
unpredictable). 

Output Data Transfer 

On output operations, the CCP moves data from your record 
area to the communication line buffer and transmits it to 
the terminal you specify. The data must begin in position 
7 of the record area, following the symbolic terminal name, 
(except in some RPG II operations and when 3270 DFF is 
used). No teleprocessing line control characters are needed, 
since CCP adds the necessary line control characters before 
transmitting the data. However, you may include in your 
data any device control characters you desire (see Device 
Control Characters) . 

Note: For BSCA record mode output operations, if the 
output record length is less than the record length specified 
in the terminal attributes set, the number of characters 
specified as the output length (third field of the parameter 



list) is sent, followed by the number of blanks necessary 
to satisfy the record length specified in the terminal 
attributes set. 

Output Data Translation 

The attribute set associated with a terminal specifies 
whether or not the data to be transmitted to that terminal 
is to be translated from EBCDIC to the line transmission 
code. 

Translation 

If translation is specified in the terminal attributes, the 
CCP converts data from EBCDIC to the appropriate line 
transmission code. Any device control characters are treated 
as data; thus, if you include device control characters in 
your record area, they must be in EBCDIC form. If invalid 
characters are found during the translation of the data, 
data transfer does not occur and the CCP places a return 
code indicating translation error in the parameter list. If 
more data is sent in one output operation than the line 
buffer for the terminal can hold (in BSCA record mode 
operations, if the output length exceeds the record length 
specified in the terminal attributes set), then the excess 
data is lost (truncated). The return code indicates if there 
was either a translation error or a data truncation. 

Translation Inhibited 

If translation is not specified, output data is taken from 
your record area and transmitted as is, except for the addi- 
tion of line control characters. If more data is to be 
sent in one operation than the size of the line buffer can 
hold (in BSCA record mode operation, if the output length 
exceeds the record length specified in the terminal attributes 
set), then the excess data is lost (truncated). All the data 
that can fit into the line buffer (or record area, for BSCA 
record mode) is sent and a return code indicating the data 
has been truncated is placed in the parameter list. 



Transmitting 3735 FDPs on an ASCII Line 

You must use a special procedure to transmit FDPs (form 
description programs) to a 3735 terminal under the follow- 
ing conditions: 

• Transmitting on an ASCII line. 

• CCP to translate input and/or output data. 

This special procedure is necessary because the FDPs, them- 
selves, must not be translated, but all other data, including 
the FDP header and trailer, must be translated. 



2-8 



The procedure is as follows: 

1 . Define two attribute sets for the 3735 terminal at 
assignment time (TERMATTR statements), one 
specifying TRANSLAT-YES and the other specify- 
ing TRANSLAT-NO. 

2. Initially, use the terminal attribute set that specifies 
TRANSLAT-YES for all input from the 3735 (until 
EOT is received). 

3. Send the FDP header and an EOT using the same 
assignment set (TRANSLAT-YES). 

4. Issue a Release Terminal (Keep-Line) operation 
followed by an Acquire Terminal (Set Terminal 
Attributes) operation, specifying the attribute set 
with TRANSLAT-NO. 

5. Transmit all blocks of FDPs, followed by an EOT. 

6. Issue a Release Terminal (Keep-Line) operation fol- 
lowed by an Acquire Terminal (Set Terminal Attrib 
utes) operation, specifying the attribute set with 
TRANSLAT-YES. 

7. Transmit the FDP trailer in a block by itself. 

8. Transmit all blocks of data, followed by an EOT. 

On switched (dial) lines, sending an EOT to the 3735 
causes the lines to be disconnected. Redialing is necessary 
to continue operations on the line. It is necessary to send 
an EOT before the attributes of the line can be changed. 

If no data is to be read from the 3735, or no data is to be 
sent to the 3735 other than the FDPs, you can code the 
FDP header and/or trailer in ASCII, thereby eliminating 
the need for step 4 or 6 and the EOT in step 3 or 5 of the 
previous procedure. This also eliminates the need to radial 
after sending EOT. 



The data stream to and from the 3735 appears as follows: 

Switched Line Only 
1 TRANSLAT-YES ■ — s Dial 



Input block l| 



I Input block n| 

I Input EOT I 
I [Output FDP Header I 

[_ J[Output EOT I 

j TRANSLAT-NO — 

] [Output FDP block l| 



J 



[Output FDP block n| 

I Output EOT I 

—TRANSLAT-YES — 
[ Output FDP trailer I 
I Output data block 1 1 



J 



I Output data block n 



I [Output EOT I J 



Redial 



■Redial 



Record Separators (Variable Length and Spanned Records) 

Record separator characters for variable length and spanned 
records can be processed by the CCP on record mode input 
operations and on any mode of output operations (record, 
block, message). The BSCA terminal (other than the 3270) 
transmitting variable length or spanned records must be 
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defined as supporting record separators at assignment time 
(see TERMATTR statement) and must be defined as record 
mode for input operations. 

The CCP automatically provides record separator 
characters at the end of each record to indicate the end 
of the record. The normal character provided is X'lE'; 
however, an alternate character may be chosen during CCP 

generation (see $EBSC statement in CCP System Reference 
Manual). The record separator character is considered a 
device control character, not a line control character. 

Note: When sending blocks of field descriptor programs to 
a 3735 terminal for which RECSEP-YES is specified in the 
//TERMATTR assignment statement, you must specify a 
block length less than 476, because a record separator 
character is automatically added to the end of your data 
before it is sent. 



Spanned Records 

Spanned records can be used under the CCP only if record 
separators are used. A spanned record is not completely 
contained within a single block, but is continued in the 
next contiguous block, as shown in the following example 
of a data format (without ITB and without text trans- 
parency): 
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Variable Length Records 

When using variable length records, no record (Including 
its record separator character) can be longer than the 
block size defined for the terminal. The record separator 
must be considered a data position when determining 
block sizes and/or line buffer sizes. 



Input: When using variable length records, you must 
specify a maximum input length in your parameter list 
that is equal to or greater than the longest record you 
expect to receive. The record separator character is 
reflected as part of the effective input length in the 
parameter list. 

For variable length, nonspanned input records, the last 
record separator character may be omitted. In this case, 
the ETB/ETX line control character suffices as a record 
separator, and is received in the user program record area 
in place of the normal record separator. 

Output: The CCP automatically adds record separator 
characters after each record. Do not include the record 
separator in the output length field of your parameter 
list. 



STX I BSCA control characters 
ETB) Reference Manual. 
RS - Record separator. 



see Components 



Record length, including the record separator, may not 
exceed block length. 



DEVICE CONTROL CHARACTERS 

Device control characters are data characters that control 
certain aspects of terminal operation, such as carriage return 
for typewriter-like terminals and screen formatting for the 
3270 terminal. Device control characters must be included 
in data that is transmitted to or from certain terminals. 
Certain device control characters can be automatically 
inserted into output data by the CCP: 

• Carriage return and idle characters for control of MLTA 
typewriter terminals. 

• 3270 screen format characters, when the Display Format 
Facility is used (see Chapter 8: 3270 Display Format 
Facility). 

In all other cases, your program must provide the appropri- 
ate device control characters (such as tab characters and 
3270 screen format control characters, when the 3270 Dis- 
play Format Facility is not used). Therefore, before 
writing a program to communicate with any terminal, you 
must understand the device control required by the terminal 
and the physical characteristics and capabilities of the 
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terminal as described in the component description manual 
for the terminal (see /IppencZ/x C; Bibliography). See index 
entries for specific terminal types for additional information 
about the unique requirements of specific terminals. 



MLTA Typewriter Terminals 

As part of the operation code in the parameter list, you can 
indicate whether you want the CCP to insert special device 
control characters into your data for the terminals with 
typewriter characteristics. The terminals considered to 
possess typewriter characteristics include the following: 

• 2740, all models or equivalent (including System/7) 

• 2741, all models or equivalent (including the Communi- 
cating Magnetic Card SELECTRIC® Typewriter) 

• 1050 with typewriter component (1051/1053). 

Note: If the 1050 multicomponent terminal number 
specifying all output components Is specified, the 1050 
is not treated as a typewriter device. 



attempts to keep track of the position of the typewriter 
and considers the typewriter to be positioned at a new 
line under the following conditions: 

• The last operation was an input operation in which the 
last character received was carriage return. 

• The last operation was an output operation which 
specified End Line. 

If you specify New Line under either of these conditions , 
CCP does not insert the typewriter control characters. If 
your program is exchanging messages with a typewriter 
terminal, the terminal operator can decrease transmission 
time by keying a carriage return as the last character of his 
input to the program. Thus, when your program responds 
with a Put, CCP will not have to insert the additional con- 
trol characters at the beginning of your output message. 

Note: For a 2740 Model 2 terminal with the buffered 
receive feature, CCP sends the carriage return without idle 
characters, since this terminal allows for completion of 
the carriage return before continuing the printout. 



Unless you specify otherwise in your operation code, the 
CCP inserts a carriage return and idle characters at the 
beginning of an output record (New Line), if needed to 
assure the output starts on a new line, and at the end of 
an output record (End Line). By means of operation code 
modifiers, you can suppress New Line control characters 
(Not New Line), End Line control characters (Not End 
Line), or both sets of control characters (Not New Line 
and Not End Line). 

You need not suppress New Line and End Line for non- 
typewriter terminals. The CCP ignores the indication in 
the operation codes and does not insert the typewriter 
control characters. Also, the CCP inserts New Line and 
End Line characters, unless suppressed, whether or not 
translation is specified. 



New Line 

New Line causes a transmitted message to begin on a new 
line at the typewriter terminal. CCP does this by trans- 
mitting a carriage return and 15 idle characters before your 
data, if the typewriter is not already positioned at the 
beginning of a new line. The idle characters allow the 
typewriter time to reposition itself as a result of the 
carriage return. It is not always necessary to insert the 
typewriter control characters, since the typewriter may 
already be positioned at the beginning of a new line. CCP 



End Line 

End Line causes the typewriter to be positioned at the 
beginning of a new line after receiving a message. The 
CCP does this by appending a carriage return and 15 idle 
characters to the end of your data. 



Message Length Considerations 

You should not allow space for New Line and End Line 
control characters in your record area. When you provide 
an output message in your record area, the CCP must build 
the actual output data stream in the teleprocessing line 
buffer before transmission can occur. Any additional con- 
trol characters added by the CCP must be in the line buffer 
along with your message. (The size of the line buffer is 
specified at assignment time, in the TERMATTR statement 
for BSCA and in the MLTALINE statement for MLTA, see 
CCP System Reference l\/lanual.) Thus, if you want to 
transmit a 40-character message and you specify New Line 
and End Line, a 72-byte data stream is built in the line 
buffer by the CCP. If the data stream is larger than the line 
buffer, your message is truncated while all typewriter 
control characters remain appended to the message. 
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BSCA Terminals 

The CCP performs the following device control for BSCA 
terminals: 

• The CCP inserts record separators for data transmission 
involving variable length or spanned records, if specified 
in the terminal attribute set associated with the terminals 
(see index entry record separators). 



Programs communicate with MLTA terminals in a record-by- 
record manner; that is, each I/O operation in a program 
results in a record being sent or received. The program 
has effective control of the line only while a record is 
being sent or received. After the record has been sent or 
received, another program and/or terminal can use the line. 

COMMUNICATING WITH BSCA TERMINALS 



• If the 3270 Display Format Facility (see index entry) 
is used with 3270 terminals, the CCP provides screen 
format control based on the descriptions of fields 
in the Display Format Specifications. 

In communicating with other communications systems via 
the BSCA, you need not provide device control characters; 
however, the communications interface between the sending 
and receiving programs may require that you provide cer- 
tain control data in your program that is understood by both 
programs, such as data delimiters and record identifiers. 
See Appendix A for additional considerations. 



LINE CONTROL CHARACTERS 

Line control characters are the signals which control 
communication on either an MLTA or BSCA line. Line 
control characters are always removed from or added to 
data by the MLTA and BSCA communications IOCS 
facilities of the CCP. You need not provide space for line 
control characters in your record area and you need not 
manipulate line control characters in your program. 
MLTA line control is described in the MLTA RPQ Program 
Reference and Component Description l\/lanual, GC21-7560; 
BSCA line control is described in the Components Refer- 
ence Manual. 

COMMUNICATING WITH MLTA TERMINALS 

In this discussion, the term "MLTA terminals" refers to 
any of the terminals listed in Appendix A as supported by 
the multiple line terminal adapter (MLTA) RPQ or their 
equivalents. MLTA terminals perform asynchronous (start/ 
stop) communications with programs through the CCP and 
the MLTA input/ output control system (IOCS), which is 
included in the generated CCP if MLTA terminals are to be 
used. See MLTA RPQ Program Reference and Component 
Description Manual, GC21-7560, for a complete description 
of the MLTA IOCS. 



The term BSCA terminals refers to any of the terminals 
(including host and subhost systems) listed in Chapter 1: 
Introduction as supported by the binary synchronous 
communications adapter (BSCA). BSCA terminals perform 
binary synchronous communications with the Model 10 
Disk System, the Model 12, and the Model 15 through the 
CCP and the multiline/multipoint (MLMP) BSCA IOCS, 
which is included in the generated CCP if BSCA terminals 
are to be used. See IBM System/3 Multiline/Multipoint 
Binary Synchronous Communications Reference Manual, 
GC21-7573, for a complete description of the MLMP 
IOCS. Additional information regarding binary synchronous 
communications can be found in publications listed in 
Appendix C: Bibliography. 

Note: BSCA conversational line control is not supported 
by the CCP. 

Blocking 

When communicating with BSCA terminals, programs send 
or receive blocks of data. A block is the physical unit of 
data that is actually sent or received in each individual 
transmission on a BSCA line. 

A block of data can be composed of one or more data 
records (Figure 2-3). Collecting records into blocks saves 
time when similar operations are performed on each 
record, since it is faster to send and receive more than one 
record at a time than to send and receive records individual- 
ly. 



Block 



Record 1 



Record 2 



Record 3 




Record n 



1 block = n records 

In binary synchronous communications, a block of 
data can contain one or more records. 
Figure 2-3. Blocking in Binary Synclironous Communications 
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End of Trcinsmission (EOT) 

When communicating witli a BSCA terminal, your program 
must perform Get operations until it receives an end-of- 
transmission (EOT) signal from the terminal (Figure 2-4) 
or until a transmission error occurs (resulting in a negative 
return code - See Appendix E). The EOT signal indicates 
the terminal has completed its current transmission. Like- 
wise, your program must send an EOT signal when it has 
finished transmitting to a BSCA terminal (see Put Message 
under BSCA Output Operations), unless a transmission 
error has resulted in a negative return code. 
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In binary synchronous communications, each block of 
data is transmitted separately. The program retains 
control of the line until EOT indicates that all 
transmission is complete. 



Legend: 



L 
C 



Direction of transmission 
Line control characters 



Figure 2-4. Data Transmission on BSCA Lines 



A BSCA line is dedicated to a program and a terminal 
once communication is initiated and is not freed for use 
by another program or terminal until EOT is transmitted 
(or a negative return code is received from an operation). 
Other terminals on a multipoint line may be allocated to 
other programs; however, a program can only be trans- 
mitting or receiving with one terminal at a time. A program 
that is receiving data from a BSCA terminal cannot transmit 
data to the terminal or communicate with any other term- 
inal on that line until the terminal sends EOT (or a negative 
return code is received). Likewise, when a program is 
transmitting to a terminal on a BSCA line, that line cannot 
be used by any other program or terminal until either 
EOT is sent by the program or a negative return code is 
received by the program. 



BSCA Input Operations 

The CCP provides three levels (modes) of input operations 
for communication with BSCA terminals corresponding 
to three basic units of data: record mode, block mode, and 
message mode (Figure 2-5). The mode of input used by a 
program with a terminal is specified during the CCP assign- 
ment stage (see TERI^ATTR statement in CCP System 
Reference Manuai). The actual Input operations are used 
as described under Operations (see index entry). 



Standard Application.Program Interface to the CCP 2-13 



RECORD 
MODE 



Program 

Record 

Area 



Block 



Record 



BLOCK 
MODE 



Program Record Area 



Message 





EOT 



QSC A record mode input operations result in a single record 
being moved from the block in the input buffer to the 
program's record area (each block contains three records in 
this illustration). The length of the record area must be at 
least as great as the input record length plus the terminal 
name (and additional information, in certain RPG II oper- 
ations). 



Message 




EOT 



BSCA block mode input operations result in a block of 
records being moved to the program's record area (without 
line control characters). Therefore, the length of the record 
area must be at least as great as the block length plus the 
terminal name (and additional information, in certain 
RPG II operations). 



Message 





EOT 



Program Record Area 



BSCA message mode input operations result in an entire 
message (all blocks of input data preceding the EOT signal) 
being assembled in the input buffer and moved (without 
line control characters) to the program's record area. The 
record area must be as long as the longest message to be 
received plus the terminal name (and additional infor- 
mation, in certain RPG II and 3270 OFF operations), 
or the excess portion of the message is truncated. 



Figure 2-5. BSCA Input Operation Modes 
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Blocking has already been described (see Blocking). A 
message consists of a limited number of blocks of data, 
followed by an EOT, that constitute a complete span of 
information that can be received by a program as the 
result of a single input operation. In message mode input 
operations, the CCP attempts to read all input data until 
it receives EOT before moving the data to the program's 
record area. In this way, the BSCA line is freed for use by 
another terminal as quickly as possible. Thus, message 
mode should be used when a limited quantity of data is 
expected (ideally, a single block) on each input operation. 

Message mode is always used with the 3270 Display Format 
Facility. 

Note: Input modes do not affect output operations. 



BSCA Output Operations 

The CCP provides three types of Put operations for use 
with BSCA terminals: Put Record, Put Block, and Put 
Message. Use of these operations in your program is not 
restricted by your program's mode of input operations 
(see BSCA Input Operations). See Operations later in 
this chapter, for complete descriptions of all Put opera- 
tions. 

Your program must always send an EOT when it has 
finished transmitting to a BSCA terminal, unless a trans- 
mission error occurs (resulting in a negative return code), 
when the CCP forces an EOT condition and terminates 
the operation. The CCP automatically sends the EOT 
after a Put Message operation and after the Put portion 
of a PutThen-Get operation. 



Put Record 

The Put Record (or Put-No-Wait Record) operation causes 
a record to be sent to the terminal you specify in your 
program's record area. If block length equals record 
length, each Put Record operation results in a record 
being transmitted on the BSCA line. If each block con- 
tains several records (specified in the terminal attribute 
set), the block is transmitted when it does not have space 
for another record. Thus, your program may issue several 
Put Record operations before a block of data is actually 
transmitted. (The CCP will automatically issue a Put 
Block operation when a block is complete — see Put 
Block.) In order to send EOT following Put Record oper- 
ations, your program must issue a Put Message operation 
(%ee Put Message) . 



In fixed-length record processing, CCP either pads a record 
with blanks or truncates a record if the record length does 
not equal the record length specified in the terminal attri- 
bute set (TERMATTR assignment statement). For example, 
if the attribute set defines the record length as 50, and you 
issue a Put Record with an output length of 40, CCP 
actually sends 50 characters; the last 10 characters are 
blank characters. Similarly, if you issue a Put Record 
with an output length of 60, a record of 50 characters 
is sent; the last 10 characters are truncated. 

Put Block 

The Put Block operation causes the current block in the 
output buffer to be transmitted, whether or not the block 
contains all the records it can hold. The next record Put 
by your program starts a new block. A Put Block opera- 
tion may either be: 

• Accompanied by the final data to be placed in the block 
before it is sent, or 

• Issued with a record length of zero, which simply causes 
the block to be sent (if there is no data to be sent, the 
operation is ignored by the CCP). 

When processing fixed-length records {see Put Record) , if 
the Put Block operation is used to force transmission of a 
short block, a data length of zero is suggested. If data is to 
accompany the operation, it should be exactly one record 
length, as defined by the terminal attributes set, because 
the normal record truncating or padding is not performed 
by the Put Block operation. 

Put Message 

Put Message causes all data to be transmitted, followed by 
an EOT. A Put Message operation can be: 

• Accompanied by the final data to be sent before EOT 

• Issued with a message length of zero, which simply sends 
the EOT signal to the terminal. 

• Program Request Under Format (PRUF), which 
indicates that the Put Message operation is transmitting 
a program request format out to the 3270 terminal. 

When processing fixed-length records (see Put Record), if 
the Put Message operation is used to indicate the end of 
data, a data length of zero is suggested. If data is to accom- 
pany the operation, it should be exactly one record length, 
as defined by the terminal attributes set, because the normal 
record truncating or padding is not performed by the Put 
Message operation. 
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Put-Then-Get and Put-No-Wait Operations 

These operations have the same basic function as described 
under Operations. Put-Then-Get causes data (record, blocl<, 
or message) to be transmitted to a specific terminal, follow- 
ed by EOT and a Get operation for the terminal. The 
result of the Get portion of the operation depends on the 
mode of input specified at assignment time (TERMATTR 
statement); the result may be the equivalent of a Get 
Record, Get Block, or Get Message to the terminal. 
Put-No-Wait can be issued at the record, block or message 
level. A Put-No-Wait Record or Put-No-Wait Block are 
identical to Put Record or Put Block. On a Put-No-Wait 
Message, your program neither waits for nor receives a 
return code. 

3284/3286 Printer Consideration 

When issuing operations to a 3284 or 3286 printer (compon- 
ents of the IBM 3270 Information Display System), the 
following situation should be considered: The user program 
issues an operation which starts the printer. Before the 
print operation is complete, the user program issues another 
operation to the printer, resulting in a "device busy" con- 
dition, for which CCP returns a -14 return code. 

The user program should be written to recognize a -14 
return code from the 3284 or 3286 printer and take some 
appropriate action. Some possible courses of action are: 

• Retry the print operation a number of times under 
control of a counter in the program. If the operation 
is not accepted after a number of retries, go on to other 
processing or inform the system operator. See index 
entry Return Codes, Negative (DFF) for special con- 
siderations when using the 3270 Display Format Facility. 



This kind of action makes heavy use of the communication 
line and adversely affects the performance of other terminals 
using the line. 

• Perform other operations in the program, such as disk 
I/O or console I/O, to allow some time for the device 
busy condition to clear. For example, sending a message 
to the system operator requesting a response is a way 

of delaying a retry of the printer operation without 
using system resources needed by other programs. The 
system operator can be asked, for example, to respond 
when the printer is free or after a specified period of 
time. 

• (Model 15 only) After receiving a device busy return 
code, set the interval timer via the $SIT macro to pause 
your task for a specified amount of time before 
retrying your Put operation. This method requires use 
of an assembler. 

• (Model 15 only) Use the RPG II operation code TIME 
to obtain the time of day. Repeat the TIME operation 
code until the desired time period has elapsed from the 
initial TIME operation; then reissue the Put operation 
to the printer. This method requires use of the DSM 
transient area and may, therefore, adversely affect 
system performance through heavy use of the transient 
area and disk access mechanism. 

Note: Waiting for the "device busy" condition to clear by 
looping in your program (not issuing CCP operations) 
prohibits other user programs from executing during the 
loop, and is therefore not recommended. 
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OPERATIONS 

This section describes tlie valid teleprocessing operations 
that can be issued by application programs running under 
the CCP. Each description of an operation contains the 
following information: 



Purpose: A brief description of the purpose of the opera- 
tion. 



Operation Code{s): Decimal value, hexadecimal value, and 
RPG II form of each variation of the operation code. A 
summary chart of operation code values is provided in 
Appendix D. 

Additional Requirements: Information your program must 
provide in addition to the operation code and record area. 

Information Returned: Information the CCP provides to 
your program as a result of the operation, including all 
positive return code values. Descriptions of all return codes 
and a sumimary chart of return codes by operation type are 
provided in Appendix E. 



Function and Use: A detailed description of the results of 
the operation and rules, considerations, and recommenda- 
tions for using the operation. 



Program Errors 

The CCP checks every operation issued by an application 
program for validity before it performs the operation. 
Certain conditions are considered to be program logic 
errors, which result in termination of the application 
program. The CCP informs the system operator of the 
termination by printing a message that conta'ms a program 
termination code identifying the error condition, the name 
of the program, and other information. The contents of 
this message and the meanings of the program termination 
codes are given in the IBM System/3 Communications Con- 
trol Program Messages Manual, GC21 -51 70. 



3270 Display Format Facility Operations 

Requests for 3270 DFF operations are issued in the same 
manner as other requests for terminal operations; that is, 
each request is issued through a communications service 
subroutine and is accompanied by a parameter list and a 
record area. For certain 3270 DFF operations, however, 
you must supply additional information in the record area, 
besides the terminal name. For example, when the display 
format is written to a 3270, the name of the format is 
given in the record area following the terminal name. 

Three operations are unique to 3270 DFF: Copy, Erase, 
and Put Override. These operations are described in 
Chapters: 3270 Display Format Facility. Considerations 
for using other CCP operations with 3270 DFF are summa- 
rized in that chapter and are also included in the descriptions 
of CCP operations in this chapter. 



Standard Application Program Interface to the CCP 2-17 



GET 



Function and Use of Get 



The purpose of the Get operation is to read a unit of data 
(record, blocic, or message) from a specific terminal into 
the record area. 

Operation Codes: 



Hex 


Dec 


RPG II 


Meaning 


0001 

00 ir 


1 
17 


%mA 

UAA 


Normal Get operation 
Get operation with reverse 
interrupt (RVI) (See Func- 
tion and Use of Get for an 
explanation of RVI.) 



Additional Requirements 

• Set value of the Maximum Input Length field in the 
parameter list. 

• Provide a symbolic terminal name (or blanks) in the 
record area. 

Information Returned 

• Effective Length of Input Data, in parameter list. 

• Input data, in record area. 

• Count of outstanding Invite Inputs in the third field of 
the parameter list, if the 08 return code is received. 

• Return Codes: 

Successful 

Data truncated 

EOT 

Data truncated and EOT 

Data pending (BSCA) 



1 
2 
3 
5 
7 



-n 



3270 CLEAR (No AID is returned in the record 
area) 

Terminal no longer available (/RELEASE com- 
mand was successfully entered by the terminal 
operator). 

Terminal offline 

Negative return codes (I/O errors - see explana- 
tions in Appendix E). 



The Get operation, reads a unit of data (record, block, or 
message) from a specific terminal and places the data in 
the record area. After issuing a Get operation, an appli- 
cation program waits for the CCP to complete the opera- 
tion. The program resumes execution either after the CCP 
has moved the unit of data received from the specified 
terminal to the record area or after the CCP has terminated 
the operation because data transfer cannot succeed. 

If the length of the input data actually received is greater 
than the maximum input length allowed, the data is 
truncated. If the data received is less than that specified, 
the CCP places blanks in the remainder of the record area. 

The attributes of the data, which determine how the input 
data is handled, and theunit of data (record, block or mes- 
sage) are specified by the terminal attribute set currently 
associated with the terminal (see index entry terminal 
attributes). For an MLTA terminal, the unit of data is 
always record. 

For BSCA terminals that acknowledge the receipt of 
reverse interrupts (RVI), the Get operation can be used 
to send an RVI to a terminal while receiving data from that 
terminal. RVI (see index entry) is generally used as a sig- 
nal from a receiving device to a device that is transmitting 
to interrupt its transmission as soon as possible, usually 
because the receiving device wishes to transmit to the 
sending device. 



Get Operation with 3270 OFF 

When you are using the 3270 DFF, you must issue a Put 
Message or Copy operation to format the display before 
you issue a Get operation to the 3270. See Field Concepts 
and Record Concepts in Chapter 8 for special requirements 
in handling input data. Also see index entry Get operation, 
3270 DFF. 



Specifying the Terminal 

You may, for a Get operation, specify either a defined 
symbolic terminal name or blanks in the record area. A 
defined terminal name must be either the name under 
which the referenced terminal was allocated to the pro- 
gram, or, if this is a multicomponent terminal (see index 
entry), a sub-terminal name subordinate to that name. 
A symbolic terminal name which is not assigned to a 
terminal cannot be used with this operation. 

This operation must not be issued to the CONSOL (5471 
Printer/Keyboard on Models 10 and 12; CRT/Keyboard 
on the Model 15). 
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A program can use a blank symbolic terminal name for 
this operation only if the program is a single requesting 
terminal (SRT) program (see index entry). A blank name 
references the terminal that requested the currently execu- 
ting copy of the program. The CCP returns the name of 
the requesting terminal in the record area before returning 
control to the program. In the case of an SRT program, 
once the requesting terminal has been released (either by 
using its symbolic name or a blank name), the use of a 
blank terminal name in the record area is no longer valid. 



• A maximum input length greater than zero must be 
specified in the parameter list for this operation. 

• The Get operation must not be issued to a terminal 
which has an Invite Input outstanding to it. Should 
it be necessary to read data from such a terminal, 
perform a Stop Invite Input operation. If the Stop 
Invite Input is successful, the Invite Input is can- 
celled and a Get may then be issued to the terminal. 
If the Stop Invite Input fails, then the operation is 
treated as a Get from the specified terminal. 



Considerations 

• The Get operation must not be issued as the initial 
data-transfer operation to a requesting terminal which 
entered data as part of the program request. The only 
valid operation which may be issued to such a terminal 
at that time is an Accept Input (see Accept Input oper- 
ation). 

• The Get operation must not be Issued as the initial data- 
transfer operation in a program that was loaded by a 
chain task request. The only operation that can be 
issued in this situation is an Accept Input operation. 

• This operation can be issued only to a terminal capable 
of transmitting data. 



• When communicating in record or block mode to a 
BSCA terminal that is on the same multipoint line 
with other BSCA terminals, it is recommended that, 
once input is received from the terminal. Get opera- 
tions should be issued to that terminal until EOT is 
received (or the operation terminates with a negative 
return code). This procedure will free the line for use 
by other terminals as quickly as possible. An alter- 
nate procedure is to issue an Invite Input to the terminal, 
followed by Accept Input operations until the transmis- 
sion is complete (EOT or a negative return code is 
received. 

• In message mode, the EOT return code is never 
returned. 
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PUT 

The purpose of the Put operation is to write a unit of data 
(record, blocl<, message) to a specific terminal. Carriage 
returns are performed for IVILTA typewriter terminals 
before and after writing the data (New Line and End Line, 
respectively), unless a modified form of the operation 
code is used to suppress carriage returns. New Line and 
End Line are ignored for BSCA operations. 

The Put operation may specify that the unit of data is to 
be written as the last in the current block (Put Block), 
that Is, an EOB (end of block) signal is to be issued follow- 
ing the data and the next unit of data is to begin a new 



block. The Put operation may also specify that the unit 
of data is the last to be Put in the current transmission 
(Put Message), that is, the EOT (end of transmission) 
signal is to be issued following the data. 

Put Block and Put Message are intended for use with BSCA 
terminals; however, these operations are valid for MLTA 
terminals and have the same effect as a Put operation with- 
out EOB or EOT (Put Record). 

Put Message can be followed by additional input or output 
operations to the same terminal. 



Operation Codes 



Hex 



Dec 



RPG II 



Meaning: Perform Put operation as follows: 



New Line 



End Line 



Unit of Data 



0002 
0102 
0202 
0302 



2 
258 
514 
770 



biAWB 
WCbiB 



yes 
yes 
no 
no 



yes 



no 



yes 



no 



Record 



0022 
0062 
0122 
0222 
0322 



34 

98 

290 

546 

802 



0032 
0072 
0132 
0232 
0332 
0832 
0872 



50 
114 
306 
562 
818 
2098 
3162 



bibiFB 
biABB 
biBBB 
biCBB 



yyCB 

mQ^ 

blACB 
l^BCB 
biCCB 
yHCB 
bHGB 



yes 
yes 
yes 
no 
no 



yes 

yes 

yes 

no 

no 

yes 

yes 



yes 
yes 
no 
yes 
no 



yes 

yes 

no 

yes 

no 

yes 

yes 



Block 



Message 



Put overrides message 
used only with DFF. 
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Additional Requirements 

• Set value of output length field in the parameter list 
(see exception under RPG II for SPECIAL files). 

• Provide a symbolic terminal name (or blanks) in the 
record area. 

• See index entry Put Overrides for special requirements 
of that operation. 



Information Returned 
• Return Codes: 

Successful (no exception conditions) 

1 Data truncated 

5 Data pending (BSCA) 

6 Terminal interrupt (MLTA) or RVI (BSCA) 
9 Terminal offline 

-n Negative return codes (I/O errors and device status 
conditions - see explanations in Appendix E). 

Function and Use of Put 

The Put operation writes a unit of data to a terminal 
(record, block, or message). On Put operations to MLTA 
terminals, the application program waits for completion 
of the transmission to the terminal. For BSCA devices, 
the program resumes execution upon acceptance of the 
operation by the CCP, except for Put Message. On Put 
Message, control is not returned to the program until 
either the data is transmitted successfully and the EOT 
sent out, or until an error condition occurs. 



Put Operation with 3270 OFF 

With 3270 DFF, you must use a Put Message to write 
the initial display format to the 3270 terminal. To 
override data at the terminal, use the Put Overrides 
operation. See index entry DFF operations for 
additional information and requirements. 

Specifying tlie Terminal 

You can specify either a defined symbolic terminal name or 
blanks in the record area for a Put operation. A defined 
terminal name must be either the name under which the 
terminal was allocated to the program, or, if this is a 
multfcomponent terminal, a sub-terminal name subordinate 
to that name. A symbolic terminal name which is not 
assigned to a terminal can not be used with this operation. 



A Put operation can be issued to the CONSOL. The maxi- 
mum length of output Is: 

Models 10 and 12-80 

Model 15-107 

You can use a blank symbolic terminal name for this oper- 
ation only if your program Is an SRT program (see Index 
entry). A blank name references the terminal that reques- 
ted the currently executing copy of the program. The 
CCP returns the name of the requesting terminal In the 
record area before returning control to the program. In 
the case of an SRT program, once the requesting terminal 
has been released (either by using its symbolic name or a 
blank name), the use of a blank terminal name in the 
record area Is no longer valid. 

Considerations 

• The Put operation must not be Issued as the initial 
data-transfer operation to a requesting terminal which 
entered data as part of the program request. The only 
valid operation which may be issued to such a terminal 
at that time Is an Accept Input (see Accept Input oper- 
ation). 

• The Put operation can be issued only to a terminal 
capable of receiving data. 

• An output length greater than zero must be specified 
for this operation if transmitting to an MLTA terminal. 
However, a zero output length may be specified on Put 
Block operations and Put Message operations to BSCA 
terminals (except on the first such operation) to force 
sending of the current block or message. 

• This operation must not be issued to a terminal which 
has an Invite Input outstanding to it. 

• Put operations to the console, regardless of the form of 
Put operation code used, cause the data (message) to be 
sent to the console. 

• PRUF Put operations issued to the console are invalid. 

• When using block mode or record mode Input with BSCA 
terminals, the following situation can occur and must be 
programmed for: 

1. The program issues an Accept Input; two terminals 
have outstanding Invite Inputs. 

2. The first terminal (T1 ) provides input data. 

3. The program issues input operations to T1 until EOT 
is received, then issues a Put to T1. 
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4. Prior to the Put to T1 , the second terminal (T2) 
provides input data. Since T2 now has control of the 
BSCA line, the Put operation issued to T1 results in 
a 05 return code (data pending on the BSCA line). 

• When transmitting fixed length data to a BSCA terminal 
using Put Record, any Put Block or Put Message oper- 
ation should not have data specified unless the data is 
exactly one record as specified in the terminal attribute 
set. Truncation or padding of record data is not per- 
formed for Put Block or Put Message operations (see 
index entry Put Record). 



PUT-THEN-GET 

The Put-Then-Get operation transmits a unit of data to a 
specific terminal and then reads data from the same ter- 
minal. Optionally, carriage returns are performed for 
MLTA typewriter terminals before and/or after writing the 
data (New Line and End Line, respectively). Put-Then-Get 
is more efficient than separate Put and Get operations. 

Put-Then-Get is the only operation that can be used to 
read data from CONSOL except when an Accept Input is 
used to receive data entered with the program request. 



Operation Codes 



Hex 


Dec 


RPGII 


Meaning 


0003 


3 


mm 


Put (Record) -Then-Get 
operation including New 
Line and End Line on Put. 


0033 


51 


mcc 


Put (Message) -Then-Get 


0103 


259 


\bf\\bC 


Put (Record) -Then-Get 
including New Line, but 
suppressing End Line. 


0203 


515 


m\bc 


Put (Record) -Then-Get 
including End Line, but 
suppressing New Line. 


0303 


771 


biciijc 


Put (Record) -Then-Get 
with neither New Line 
nor End Line. 



Notes: 1. New Line and End Line are ignored for 
BSCA terminals and the console. 

2. This operation cannot be used with DFF 
terminals. 



Additional Requirements 

• Set value of Output Length field in parameter list (see 
exception under RPG II for SPECIAL files). 

• Set value of Maximum Input Length field in parameter 
list. 

• Provide a symbolic terminal name (or blanks) in the 
record area. 



Information Returned 

• Input data in the record area. 

• Effective Input Length value in parameter list. 

• Count of outstanding Invite Inputs in the third field of 
the parameter list, if the 08 return code is received. 

• Return Codes: 

Successful (no exception conditions) 

1 Data Truncated - this return code indicates that 
input data was truncated 

2 EOT - applies to the Get, not returned to the pro- 
gram If Get was message mode (input mode is 
determined by terminal attributes — see index 
entry) 

3 Data Truncated and EOT - applies to the Get 
(MLTA terminals only) 

5 Data Pending - BSCA terminals only 

6 Terminal interrupt (MLTA) or RVI (BSCA) 

7 3270 CLEAR -applies to the Get. No AID is 
returned in the record area. 

8 Terminal no longer available - applies to the Get 
only (/RELEASE command was successfully 
entered by the terminal operator) 

9 Terminal offline - applies to the Put, since Get is 
not performed 

-n Negative return codes (I/O errors and device status 
conditions — see explanations in Appendix E) — 
see Error Return Codes under Function and Use 
of Put-Then-Get for additional information 
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Function and Use of Put-Then-Get 

This operation is a combination of a Put operation and a 
Get operation. First, the Put operation is issued to a 
specific terminal. Upon completion of the Put, a Get 
operation is issued to the same terminal. The application 
program resumes execution upon completion of the Get, 
when the input data resides in the record area. The same 
record area is used for both the Put and the Get (except 
with RPG II SPECIAL - see index entry Put-Then-Get, 
RPG II SPECIAL). 

For BSCA terminals, the operation works as follows: 

• For Put(Record)-Then-Get, the output data is padded or 
truncated according to normal record processing (see 
index entry Put Record). After the record is sent, EOT 
is sent, followed by the Get operation. 

• For Put(Message)-Then-Get, either the output data is 
the only data sent (if this is message output only), or 
the output data is the last data sent (if the previous 
operation was a Put Record or Put Block operation). 
No record padding or truncating is performed by the 
Put(Message)-Then-Get operation (see index entry Put 
Message). After the output data is sent, EOT is sent, 
followed by the Get operation. 

The mode of input (record, block, message) specified by 
the terminal attribute set which is currently associated 
with this terminal (see index entry terminal attributes) 
determines the unit of data received. For an MLTA ter- 
minal, the unit of data is always record. 



Specifying the Terminal 

You can specify either a defined symbolic terminal name or 
blanks in the record area for Put-Then-Get. A defined termi- 
nal name must be either the name under which the terminal 
was allocated to the program or, if this is a multicomponent 
terminal, a sub-terminal name subordinate to that name. A 
symbolic terminal name which is not assigned to a terminal 
cannot be used with this operation. 

The use of a blank symbolic terminal name is valid for this 
operation only if the program is an SRT program (see index 
entry). A blank name references the terminal that requested 
the currently executing copy of the program. The CCP re- 
turns the name of the requesting terminal in the record area 
before returning control to the program. In the case of an 
SRT program, once the requesting terminal has been re- 
leased (either by using its symbolic name or a blank name), 
use of a blank terminal name is no longer valid. 



Put-Then-Get is the only operation that can be used to get 
data from the system operator's console (CONSOL), except 
when an Accept Input is used to receive data entered with 
the program request. The maximum input and output 
lengths for this operation are: 

Models 10 and 12-80 

Model 15 -71 



Error Return Codes 

When I/O errors occur on an input operation, the CCP sets 
the effective input length in the parameter list to zero and 
clears the record area to blanks. When errors occur during 
the execution of the Put-Then-Get operation, the operation 
is terminated immediately. Thus, if the error occurs on the 
Put portion of the operation, the CCP does not perform the 
Get, but returns control to your program. In order to deter- 
mine whether an I/O error (negative return code) occurred 
on the Put or the Get, you can examine the effective input 
length in the parameter list. If the value of this field is the 
same as the output length value specified for the operation, 
then the I/O error occurred on the Put. However, if the 
value has been set to zero, the I/O error occurred on the 
Get. 



Considerations 

• This operation must not be issued as the initial data- 
transfer operation to a requesting terminal which entereo 
data as part of the program request. The only valid oper- 
ation which may be issued to such a terminal at that 
time is an Accept Input (sbs Accept Input Operation). 

• This operation can be issued only to a terminal capable 
of both transmitting and receiving data. 

• A maximum input length greater than zero must be 
specified for this operation. 

• An output length greater than zero must be specified for 
this operation if transmitting to an MLTA terminal or if 
this is the initial block being transmitted to a BSCA 
terminal. 

• This operation must not be issued to a terminal which 
has an Invite Input outstanding to it. 

• This operation must not be used with the 3270 OFF. 
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PUT-NO-WAIT 

The Put-No-Wait operation allows overlap of the output 
operation with continued program execution. Put-No-Wait 
writes a unit of data (record, block, or message) to a 
specific terminal. For MLTA operations and for BSCA 
message operations, your program resumes execution 
immediately upon acceptance of the operation by the 
CCP. Optionally, a carriage return is performed for MLTA 
typewriter terminals before and/or after writing the data 
(New Line and End Line, respectively). New Line and 
End Line are ignored for BSCA operations. 



Operation 


Codes 










Hex 


Dec 


RPG II 


Meaning: 


Perform Put-No-Wait as follows: 




New Line 


End Line 


Unit of Data 


0006 


1 

6 


bibSyF 


yes 


yes \ 




0106 


262 


bAbSF 


yes 


no [ 


Record 


0206 


518 


biBbiF 


no 


yes i 




0306 


774 


WCtzSF 


no 


no ' 




0026 


38 


bibiBF 


yes 


yes \ 




0126 


294 


yABF 


yes 


no 1 


Block 


0226 


550 


biBBF 


no 


yes I 




0326 


806 


«CBF 


no 


no ' 




0036 


54 


mcf 


yes 


yes \ 




0076 


118 


bibiGF 


yes 


yes / 




0136 


310 


WACF 


yes 


no ) 


Message 


0236 


566 


biBCF 


no 


yes \ 




0336 


822 


biCCF 


no 


' 




0836 


2102 


biHCF 


yes 


yes 1 


Put overrides message 
used only with DFF 


0876 


2166 


bSHGF 


yes 


yes j 
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Additional Requirements 



Specifying ttie Terminal 



• Set value of Output Length field in the parameter list 
(see exception in RPG II for SPECIAL files). 

• Provide a symbolic terminal name (or blanks) in the 
record area. 



Information Returned 

• Return codes (see explanations in Appendix E): 
Operation accepted by CCP 

5 Data pending (BSCA) 
9 Terminal offline 

Function and Use of Put-No-Wait 

This operation causes the data in the Put record area to be 
Put to a specific terminal. The requesting program resumes 
execution upon acceptance of the operation by the CCP. 

The Put-No-Wait operation may specify: 

• A record is to be written in the current block (see index 
entry Nocking). 

• An EOEi (end of block) signal is to be issued following 
the record and the next record is to begin a new block 
(Put Block). 

• A record is the last to be Put in the current transmission; 
that is, the EOT (end of transmission) signal is to be 
issued following the data (Put Message). 

Put-No-Wait with EOB, Put-No-Wait with EOT, and PRUF 
Put-No-Wait with EOT are intended for use with BSCA 
terminals; however, these operations are valid for MLTA 
terminals and have the same effect as a Put-No-Wait 
operation without EOB or EOT (Put Record), or without 
PRUF. 

On Put-No-Wait (record) and Put-No-Wait (block) opera- 
tions to a BSCA terminal, the requesting program does not 
resume execution until the specified terminal has gained 
control of the BSCA line. 



You can specify either a defined symbolic terminal name or 
blanks in the record area with a Put-No-Wait. A defined 
terminal name must be either the name under which the 
referenced terminal was allocated to the program, or, if 
this is a multicomponent terminal, a sub-terminal name 
subordinate to that name. A symbolic terminal name 
which is not assigned to a terminal cannot be used with 
this operation. Put-No-Wait can be issued to the console, 
but it is treated as a Put (with wait). 

You can use a blank symbolic terminal name for this oper- 
ation only if your program is an SRT program. A blank 
name references the terminal that requested the currently 
executing copy of the program. The CCP returns the name 
of the requesting terminal in the record area before return- 
ing control to the program. In the case of an SRT program, 
once the requesting terminal has been released (either by 
using symbolic name or a blank name), the use of a blank 
terminal name is no longer valid. 



Considerations 

• The Put-No-Wait operation must not be issued as the 
initial data-transfer operation to a requesting terminal 
which entered data as part of the program request. The 
only valid operation which may be issued to such a ter- 
minal at that time is an Accept Input (see Accept Input 
operation). 

• This operation can be issued only to a terminal capable 
of receiving data. 

• An output length greater than zero must be specified for 
this operation if transmitting to an MLTA terminal or if 
this is the initial block being transmitted to a BSCA ter- 
minal. 

• This operation must not be issued to a terminal which has 
an Invite Input outstanding to it. 

• Since control is returned to the user program before com- 
pletion of the data transfer, no indication as to the success 
or failure or the data transmission is returned to the user 
program. 



Put-No-Wait Operation with 3270 DFF 

If Put-No-Wait is used with 3270 DFF to put a format on 
the display, the CCP changes the operation to a Put 
Message and your program does not regain control until 
the operation is complete. 
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INVITE INPUT 



Invite Input Operation with 3270 DFF 



The purpose of the Invite Input operation is to make a spe- 
cific terminal eligible to send input data. The invited input 
is not maide available to your program except as the result of 
a subsequent Accept Input operation (see next operation). 



This operation must not be issued to a terminal under 
3270 DFF until a Put Message or Copy operation has 
placed a format on the display. 



Operation Code 



Hex 


Dec 


RPGII 


Meaning 


1 


0005 


5 


\i>mE 


Invite Input 



Additional Requirements 

• Set value of Maximum Input Length in parameter list. 

• Provide a symbolic terminal name (or blanks) in the 
record area. 

Information Returned 
Return Codes: 

Successful 

9 Terminal offline 



Function and Use of Invite Input 

This operation causes CCP to make a specific terminal 
eligible to transmit data to the application program. The 
program resumes execution after acceptance of the Invite 
Input operation by CCP. 

More than one Invite Input may be outstanding at one 
time, but not to the same terminal. As each terminal com- 
pletes transmission, the data is queued as input to the user 
program. An Accept Input operation (see next operation), 
causes the first completed input to be made available to 
the application program. 

The attributes of the data and the unit of data (record, 
block, or message) for this operation are those specified in 
the terminal attribute set currently associated with the 
terminal. For an MLTA terminal, the unit of data is 
always record. 



Specifying the Terminal 

You can specify either a defined symbolic terminal name or 
blanks in the record area for the Invite Input operation. 
A defined terminal name must be either the name under 
which the terminal was allocated to the program, or, if 
this is a multicomponent terminal, a subterminal name 
subordinate to that name. A symbolic terminal name which 
is not assigned to a terminal cannot be used with this 
operation. This operation must not be issued to CONSOL. 

You can use a blank symbolic terminal name for this oper- 
ation only if your program is an SRT program. A blank 
name references the terminal which requested the currently 
executing copy of the program. The CCP returns the name 
of the requesting terminal in the record area before return- 
ing control to the program. In the case of an SRT program, 
once the requesting terminal has been released (either by 
using a symbolic terminal name or a blank name), the use 
of a blank terminal name is no longer valid. 



Considerations 

• An Invite Input operation must not be issued as the 
initial data-transfer operation to a requesting terminal 
which entered data as part of the program request. The 
only valid operation which may be issued to such a 
terminal at that time is an Accept Input (see /Accept 
Input operation). 

• This operation can be issued only to a terminal capable 
of transmitting data. 

• A maximum input length greater than zero must be 
specified for this operation. 

• The maximum input length must not be greater than 
the size of the entire teleprocessing buffer (minus 4) 
defined in the current assignment set, or redefined dur- 
ing Startup (four bytes are required for control infor- 
mation used by the main storage allocation routines). 

• This operation must not be issued to a terminal which 
has an Invite Input outstanding to it. 
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ACCEPT INPUT 

The purpose of the Accept Input operation is to gain access 
to the earliest completed record from the terminals to which 
Invite Input operations were previously issued, and to ob- 
tain the data received with a program request or a chain task 
request. Invite Inputs to the other terminals remain in 
effect. 



14 An accept operation for chain task data was 
successful 

1 5 Chain task data was truncated 

-n Negative return codes (I/O errors - see explana- 
tions in Appendix E) 



Operation Code 



Hex 


Dec 


RPGII 


Meaning 


0004 


4 


m\hD 


Accept Input 



Additional Requirements 

• Set value of Maximum Input Length field in the param- 
eter list. 



Information Returned 

• Input data in the record area. 

• Effective length of Input Data, in the parameter list. 

• Symbolic name of terminal from which data was re- 
ceived, in the record area. 

• Count of outstanding Invite Inputs in the third field 
of the parameter list, if the 08 return code is received. 

• Return Codes: 

Successful 

Data Truncated 

EOT or non-PRUF request to a PRUF program 

Data truncated and EOT 

Shutdown requested 



3270 CLEAR (No AID is returned in the record 
area) 

Terminal no longer available (/RELEASE com- 
mand was successfully entered by the terminal 
operator) 



9 Terminal offline 



Function and Use of Accept Input 

This operation makes data available to your program from 
one of three sources: 



1. 



2. 



A terminal to which an Invite Input operation was 
previously issued by the program (program invite 
operation). 

A terminal that presents data along with the program 
request. In this case, the Invite Input is done by CCP 
(system invite operation). 

A CCP program that presents data along with a chain 
task request. 



A successful Accept Input operation satisfies the previous 
Invite Input to the terminal from which data was received 
so that there is no longer an Invite Input outstanding to 
that terminal. However, Invite Inputs to other terminals 
remain in effect and can be satisfied by subsequent Accept 
Inputs. 

Your program resumes execution after data from a terminal 
has been made available in the record area. 

On an Accept Input operation, CCP ignores the data in the 
name field of the record area. However, the CCP places the 
name of the terminal from which the data was received in 
this area before returning control to your program. On a 
chain task request operation, CCP places the name of the 
requesting program in the name field. 



Accept Input Operation with 3270 DFF 

For systems without program request under format or 
when using the 3270 DFF, you must issue a Put Message or 
Copy operation to format the display before you use Invite 
Input and Accept Input operations with the 3270. See 
Field Concepts and Record Concepts in Chapter 8 for 
special requirements in handling input data. See also index 
entry Accept Input Operation, 3270 DFF. 
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DFF non-PRUF programs that use the AID byte position 
to set record identifying indicators on Accept Input oper- 
ations must take into consideration that an Accept Input 
that satisfies a system invite operation does not return the 
AID byte to your record area. The first byte of the pro- 
gram request input data is in the AID byte field (position 
15 if using SCJBR92) and could duplicate a valid AID char- 
acter, causing the corresponding record identifying indicator 
to be set on. 



Accept Input Operation for Program Request Data 

When input data is appended to the program request for 
non-PRUF programs, that data is not processed by the 
DFF, but is passed directly to the user program. In this 
case, the Accept Input must not be preceded by a Put 
Message or Copy operation to format the screen. 

The input data is entered into the dynamic TP buffer area in 
a continuous string. If the data is from a 3270 terminal, the 
first 8 byltes are the control unit and device addresses, the 
AID byte, and the 3270 control characters. The length 
allocated to the dynamic TP buffer is determined by the 
PGMREQL value (maximum 80 bytes) of the SYSTEM 
assignment statement plus 8 bytes. When the input data is 
passed to the program record area, the 8 bytes and the pro- 
gram name information are also stripped from the input 
data, leaving a maximum of 78 bytes of actual program 
data. Any additional data in the 3270 buffer at the time 
of the program request is not sent to the program. 

When input data is appended to the request for PRUF 
programs (identified by the PRUFLNG keyword given on 
the assignment PROGRAM statement), that data may or 
may not be processed by DFF. The maximum length of 
this data may exceed 78 characters, up to the value speci- 
fied in the PRUFLNG keyword. This data will be processed 
by DFF if the PRUF$Z keyword was included in the assign- 
ment PROGRAM statement. The data stream returned to 
the program for PRUF non-DFF program requests differs 
from that for non-PRUF programs. 



Program area examples of program request data: 


• Non-PRUF: 




data, , , , 


1 


position 1 . . . 


(up to 78 che 


(position 15if RPG II) 




• PRUF non-DFF: 




cu 


dev 


aid 


c@ 

1 


sba @@ 
1 



position 12 3 4-5 6 7-8 

(position 15 if RPG II) 



nqmnamlA data sba @@ data . , . 
"^"i I I I I [ 1 1 L 



(up to PRUFLNG parameter) 



PRUF DFF: 



I aid , pgmnam field2 . . . 
I ' I 1 1 

position 1 2... (up to PRUFLNG parameter) 

(position 15 if RPG II) 

See Chapter 3 for an explanation of the 3270 control 
characters, aid, sba, etc. 

If the PRUFLNG keyword was given in the PROGRAM 
statement for the requested program, but the last success- 
ful user Put was not a PRUF Put, the CCP will return a 
02 return code to the PRUF program being requested. 
This indicates that non-PRUF data accompanies the 
program request. 

Accept Input Operation for Chain Task Requests with Data 

When data is appended to a chain task request for a DFF 
program, the data is not processed by DFF but is sent 
directly to the input area in the program. This data does 
not contain any 3270 control characters. 



When a program has been loaded via a chain task request 
with data, the program must issue an Accept Input opera- 
tion before attempting any other CCP operation. 
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Considerations 

• You should specify a maximum input length in the pa- 
rameter list (and a corresponding record area) large 
enough to accommodate the largest amount of data 
that can be received from an outstanding Invite Input, 
because, if several Invite Inputs are outstanding, you do 
not know which Invite Input will be the first to satisfy 
the Accept Input. 

• Use caution when issuing Accept Input or Get operations 
after receiving a Shutdown return code (04). If the 
terminal operators do not key in data to satisfy the 
operations, the program remains in main storage until 
cancelled by the system operator. Stop Invite Input 
operations are recommended to cancel outstanding 
Invite Inputs and still permit processing of any data 
that may be received. 

• An Accept Input can be issued only under the following 
conditions: 



return code will be issed to an operation other than Shut- 
down Inquiry only once during the execution of the 
program. 

Every program that uses Accept Input should check for the 
shutdown-requested return code. 

Note: Only the Accept Input need be reissued if you still 
want to have the operation performed, because the Invite 
Input is still in effect. 

STOP INVITE INPUT (OR GET) 

The purpose of this operation is to stop an Invite Input 
previously issued to a specific terminal and, if the Invite 
Input cannot be stopped, to accept (Get) the input. Stop 
Invite Input is used when some event has occurred in the 
program such that the program no longer wants input from 
the terminal. 



1. There are one or more Invite Inputs outstanding 
for the program (including any implied Invite 
Inputs due to program requests with accompany- 
ing data). 

2. There are no outstanding Invite Inputs and 

a. The program is defined as a never-ending pro- 
gram, and 

ta. The defined maximum number of requesting 
terminals that the program can handle con- 
currently is greater than the current number 
of requesting terminals the program is 
handling. 

• An input length greater than zero must be specified 
for this operation. 

• Accept Input is valid to the console only when issued 
for data with the program request. Any subsequent 
Invite Input to the console results in program termination. 

Shutdown Requested by Operator 

A return code indicating that shutdown has been requested 
by the System Operator may be returned to this operation. 
In this case, the parameter list remains unchanged except 
for the return code field; no input data is received. If you 
still wish to have the operation performed, you must 
reissue the Accept Input. The shutdown-requested return 
code can only occur when there are no completed Invite 
Inputs to satisfy the Accept Input. A shutdown-requested 



Operation Code 



Hex 


Dec 


RPGII 


Meaning 




0401 


1025 


bDtiA 


Stop Invite Input 



Additional Requirements 

• Provide a symbolic terminal name (or blanks) in the 
record area. 

• Set value of the Maximum Input Length field in pa- 
rameter list. 



Information Returned 

• Input data (if Invite Input is not stopped) 

• Effective Input Length value in parameter list (if 
Invite Input is not stopped) 

• Count of outstanding Invite Inputs in the third field of 
the parameter list, if the 08 return code is received. 
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• Return Codes: 



Specifying ttie Terminal 



Get successful (no exception conditions) 

1 Data truncated 

2 Get successful with EOT 

3 Data truncated with EOT 

7 3270 CLEAR (No AID is returned in the record 
area) 

8 Terminal no longer available (/RELEASE com- 
mand was successfully entered by the terminal 
operator) 

9 Terminal offline 

10 Stop Invite Input successful 

-n Negative return codes (I/O errors and device status 
conditions — see explanations in Appendix E) 



You can specify either a defined symbolic terminal name 
or blanks in the record area for this operation. A defined 
terminal name must be either the name under which the 
terminal was allocated to the program, or, if a multicom- 
ponent terminal, a sub-terminal name subordinate to that 
name. A symbolic terminal name which is not assigned to 
a terminal cannot be used with this operation. This oper- 
ation must not be issued to the system operator console 
(CONSOL). 

You may use a blank symbolic terminal name with this 
operation if your program is an SRT program. The blank 
name references the terminal which requested the currently- 
executing copy of the program. The CCP returns the name 
of the requesting terminal into the record area before 
returning control to your program. In the case of an 
SRT program, once the requesting terminal has been 
released (either by using a symbolic terminal name or 
a blank terminal name), the use of a blank name is no 
longer valid. 



Function and Use of Stop Invite Input 

Stop Invite Input causes the CCP to attempt to cancel an 
Invite Input that has been previously issued to a specific 
terminal. If the Invite Input is stopped successfully, the 
terminal no longer has an Invite Input outstanding. How- 
ever, if the Invite Input cannot be stopped, your program 
must be ready to handle any data received from the ter- 
minal as though your program issued a Get to the terminal. 
Thus, when requesting a Stop Invite Input, your program 
must present all the information needed for a Get opera- 
tion. Your program resumes execution either when the 
Invite Input has been cancelled or when the Get has been 
completed. 

This operation can only be issued to a terminal which has 
an Invite Input outstanding to it. 

If the operation becomes a Get, the attributes of the data 
and the unit of data (record, block, message) for this 
operation are those specified in the terminal attribute 
set currently associated with this terminal (see index entry 
terminal attributes). For an MLTA terminal, the unit of 
data is always record. 



Considerations for Using Stop Invite Input 

• This operation must not be issued as the initial data- 
transfer operation to a requesting terminal which enter- 
ed data as part of the program request. The only valid 
operation which may be Issued to such a terminal at 
that time is an Accept Input. 

» This operation can be issued only to a terminal capable 
of transmitting data. 

• A maximum input length greater than zero must be 
specified for this operation. 



GET TERMINAL ATTRIBUTES 

The purpose of this operation is to determine the attri- 
butes of a specified terminal. 

Operation Code: 



Hex 


Dec 


RPG II 


Meaning 


1 


0008 


8 


mm 


Get Terminal Attributes 
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Additional Requirements 



Positions 14- 15: (Worl< Area C) 



• Provide a symbolic terminal name (or blanks) in the 
record area. 

• Set value of the maximum input length field in the 
parameter list. 

Information Returned 

• Effective input length value In the parameter list. 

• Special information in positions 10-1 5 of the parameter 
list (see Special Information Returned in the Parameter 
Z./sf following). 

• Terminal attributes. In the record area (see Special 
Information Returned in the Parameter List following). 

• Return codes (see explanations in Appendix E): 

Success 

1 Data truncated 

Special Information Returned In the Parameter List 

Get Attributes returns the following information in the 
last three fields of the parameter list. This is the only 
situation in which you may want to reference information 
in these fields. These fields are not returned by the 
RPG II Get Attributes operation. 

Positions 10-11: {Work Area A) 

Contains the address of the Terminal Unit Block (TUB) for 
the terminal specified. The Terminal Unit Block is an internal 
CCP control block used to maintain control information for 
each terminal defined in the system with a MLTATERM 
or BSCATERM statement during the Assignment run. 

Positions 12- 13: (Work Area B) 

BSCA Terminal: Contains the block length specified in the 
terminal attributes set associated with this terminal. 



MLTA Terminal: Contains the record length specified in 
the terminal attributes set for the terminal. 



BSCA Terminal: Contains the record length specified in 
the terminal attributes set associated with this terminal. 



MLTA Terminal: Contains the record length specified in 
the terminal attributes set for the terminal. 



Information Returned in the Record Area 

As a result of a successful Get Attributes operation, the 
following information is returned in the first 21 positions 
of the data portion of the record area (all information is 
in EBCDIC). 



Position 1 - Allocation Status: Position 1 contains a 
single character that indicates the following information 
about the terminal specified: 



EBCDIC 
Character 


Meaning 


1 


Allocated to this program. All the 
attribute data is provided. 


2 


Allocated to another program. All the 
attribute data is provided. 


3 


Not allocated to a program. All the 
attribute data is provided. 


:l 


Thespecified name was a sub- terminal 

name. The master symbolic terminal 

name has been returned in record area. 

All attribute data applies to the master 

terminal. 

J = Master is allocated to this program. 

K = Master is allocated to another 




program. 
L = Master is not allocated to a program. 


X 


The specified symbolic terminal name is 
not assigned to a terminal. No other 
attribute data Is provided. 


z 


Terminal name not defined in the 
system. 
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Position 2 - Terminal Class: Position 2 contains a 
single character representing the class of terminal as 
follows; 



EBCDIC 




Character 


Terminal Class 





CONSOL 




5471 Printer/Keyboard (Models 10 




and 12), CRT/Keyboard (Model 15) 


1 


MLTA terminal other than 1050 


2 


1050 


3 


3277M1 (480-character),3284M1, 




or 3286M1 


4 


3277M2 (1920-character),3284M2, 




or3286M2 


5 


3275M1 (480-character), with or 




without 3284M3 


6 


3275M2 (1920-character), wither 




without 3284M3 


7 


3735 


8 


Another computer system (CPU) on a 




BSCA line. 


g 


3741 Data Station, 5231 Controller 




Model 2 



Position 3 - Line Number: Position 3 contains the MLTA 
line or BSCA adapter number to which the terminal is 
attached. Determine whether MLTA or BSCA by check- 
ing position 2. 



EBCDIC 




Character 


Meaning 


1 


MLTA line 1/BSCA adapter 1 


2 


MLTA line 2/BSCA adapter 2 


3 


MLTA line 3 


4' 


MLTA line 4 


5 


MLTA line 5 


6 


MLTA line 6 


7 


MLTA line 7 


8 


MLTA line 8 



Position 4 - Online: Position 4 contains a single charac- 
ter that indicates whether the terminal is logically online 
or offline. This logical status of the terminal can be con- 
trolled by the system operator by use of the /VARY com- 
mand (see CCP System Operator's Guide). 

The value 'Y' indicates the terminal is online; the value 
'N' indicates that the terminal is offline. 



Position 5 - Line Type: Position 5 contains a character 
that indicates the type of line on. which the terminal 
resides: 



EBCDIC 




Character 


Meaning 


P 


Point-to-Point 


C 


Control Station 


M 


Multi-point Tributary (BSCA only) 


S 


Switched 


w 


Control Station - Switched (MLTA only) 
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Positions 6 - 21 - Terminal Attribute Set: These 16 char- 
acters represent the 16 bit settings of the terminal attri- 
bute set currently associated with the terminal. (See 
index entry terminal attributes; also see the TERMATTR 
assignment statement in CCP System Reference Manual.) 



Record 

Area 

Position 


EBCDIC Character-Meaning 


Corresponding 
Bit in Attribute 
Set 


1 


6 


- Translate data 

1 - Do not translate data 





7 


- Upper case translate 

1 - Lower case translate 


1 


8 


- Answer switched line 

1 - Call switched line 


2 


9 


0- Manual switched line 
1 - Auto switched 


3 


10 


Reserved 


4 


11 


Reserved 


5 


12 


Reserved 


6 


13 


- DFF not used for this terminal 

1 - DFF used for this terminal 


7 


14 


- Data format not record mode 

1 - Data format is record mode 


8 


15 


- Data format not block mode 

1 - Data is block mode 


9 


16 


- Data format not message mode 

1 - Data format is message mode 


10 


17 


- No ITB support 

1 - Support ITB characters 


11 


18 


- Non-transparency mode data 

1 - Transparency mode data 


12 


19 


- Verify switched line exchange ID 

1 - No exchange ID verification 


13 


20 


- No spanned record support 

1 - Support spanned records 


14 


21 


- No variable length record support 

1 - Support variable length records 

(record separators) 


15 
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Function and Use of Get Attributes 



Considerations 



This operation is used to determine the attributes of any 
terminal defined by a BSCATERIVI or MLTATERM assign- 
ment statement (see CCP System Reference). It is not 
necessary that a terminal be allocated to a particular pro- 
gram for that program to issue a Get Attributes request 
to that terminal. The attributes of the specific terminal 
requested are available in the parameter list and the record 
area when the program resumes execution. 

You might use a Get Attributes operation, for example, 
to determine which component of a 3270 is being used 
or whether or not the attribute set defined specifies 
DFF. 



If an RPG II program uses position 15 of the input 
record area as the Al D byte to set record identifying 
indicators, data from a previous operation can be lost 
or overwritten when a Get Attributes operation is 
performed. 

The PF 1 , PF 2, and PF 3 keys return the characters 
1, 2, and 3 respectively as the Al D character in position 
15 of the record area. A Get Attributes operation can 
also return the characters 1 , 2, and 3 as valid allocation 
status information in the same position of the record 
area. 



As a result of the Get Attribute operation, 21 characters 
of information are returned in the record area. If the 
maximum input length in the parameter list is less than 
21, then only the number of characters indicated are 
returned. The effective input length field in the parameter 
list indicates the number of characters of information 
returned; the return code indicates data truncation occurs. 



ACQUIRE TERMINAL 

This operation enables a program to request a specific 
terminal to be allocated to itself and to change the 
attributes of the terminal. 



Operation Code 



Specifying the Terminal 

Issuing this operation with a terminal name that is not 
defined causes CCP to return a Z in position 1 of the 
record area. 

You may use a blank symbolic terminal name with this 
operation if your program is an SRT program. The blank 
name references the terminal which requested the currently- 
executing copy of the program. The CCP returns the name 
of the requesting terminal into the record area before 
returning control to the program. 

In the case of an SRT program, once the requesting termi- 
nal has been released (either by using a symbolic terminal 
name or blanks), the use of a blank terminal name is no 
longer valid. 

If a sub-terminal symbolic name is given with this opera- 
tion, then the attributes of the master terminal are return- 
ed along with the name of the master terminal to which 
the sub-terminal name is subordinate. 



Hex 


Dec 


RPG II 


Meaning 


1 


0009 


9 


mm 


Acquire Terminal - use 
the attribute set currently 
associated with the 
terminal (defined Jn 
TERMATTR statement) 


0019 


25 


MM 


Acquire Terminal — 
change the attributes to 
the set identified in third 
field of the parameter list 


0029 


41 


btiiBI 


Acquire a command- 
mode, non-PRUF 
terminal (5704-SC2 
only) 



Additional Requirements 

• Provide a symbolic terminal name in the record area. 



Provide an attributes identifier in the parameter list, 
if attributes are to be set by the operation. 
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Information Returned 
Return Codes: 







Successful 



11 Acquire failed 

Function and Use of Acquire Terminal 

Application programs can issue teleprocessing operations 
only to those terminals that are allocated to them. One 
way to allocate terminals is to specify the terminals in 
the PROGRAM assignment statement (see CCP System 
Reference Manual). However, there may be times when a 
program wishes to have a terminal dynamically allocated 
to it. This can be done with the Acquire Terminal 
operation. 

The Acquire Terminal operation causes the CCP to 
attempt to allocate a specific terminal to a program. If 
the terminal is online, not already allocated to a program, 
and not in command mode (signed on), it is eligible for 
allocation. If operating under control of 5704-SC2, an 
Acquire Terminal operation can acquire a command-mode, 
non-PRUF terminal. A non-PRUF terminal is a 3277 or 
3275 that is not formatted with a PRUF display. 

Along with this operation you may identify a specific 
set of operational attributes to apply to that terminal 
while allocated to your program. If an Acquire Terminal 
operation is to set terminal attributes, then the identifier 
value of the terminal attribute set (as given in the 
TERMATTR assignment statement) must be given in 
the third field of the parameter list (in decimal for RPG II; 
in hexadecimal for other languages). The CCP checks the 
attribute set specified against the terminal type for validity. 

The Acquire Terminal operation is valid if the terminal is 
already allocated to your program only if the Acquire 
Terminal with Set Attributes modifier is issued to change 
the attribute set. (On a BSCA line, the last transmission 
must have completed a message; that is, EOT must have 
been sent or received.) 

Your program resumes execution upon the completion of 
the allocation or upon recognizing that the terminal is not 
available for allocation. 



Specifying the Terminal 

For this operation, you must specify a defined symbolic 
terminal name in the record area. The following names 
may not be specified for the operation: 

• The name of a terminal already allocated to the pro- 
gram (except the requesting terminal, immediately 
after the first successful Accept Input). 

• A symbolic sub-terminal name. 

• A symbolic terminal name that is not assigned to a 
terminal. 

• CONSOL 

• Blank terminal name. 



Considerations 

When both DFF and non-DFF programs can be requested 
from the same 3270 terminal, at least two TERMATTR 
statements (DFF3270-YES and DFF3270-IMO) must be 
defined in the assignment set for these programs. The first 
terminal attributes set defined in the ATTRID parameter 
of the BSCATERM statement is the default attribute set 
for the terminal. A program that uses the requesting ter- 
minal in a manner other than that defined by the default 
attribute set must perform an Acquire Terminal operation 
with the appropriate attributes identifier to modify the 
terminal attributes. 



CHAIN TASK REQUEST (5704-SC2 Only) 

This operation allows a program to request a second pro- 
gram that is to execute as an unrelated task. Data can 
optionally be passed with the request. 



Operation Code 



Hex 


Dec 


RPG II 


Meaning 


1 


002A 


0042 


$ViBK 


Set up a program request 
from this program. 
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Additional Requirements 

• Provide the name of the requested program in the name 
field of the record area. 

• Specify either the output length or (if no data with the 
chain request) in the parameter list (see exception under 
RPG II for SPECIAL files). 



Information Returned 

Return Codes: 

Successful operation (Chain Task Request 
accepted) 

1 2 Request rejected (maximum number of chain 
task requests already queued) 

13 Request rejected (insufficient TP buffer available) 

Function and Use of the Chain Task Request 

When successfully executed by a CCP program, the Chain 
Task Request operation causes a second program to be 
loaded and executed. If the resources (files, terminals, or 
storage) required by the second program are not available, 
the second program is automatically queued. If data is 
presented with the Chain Task Request and PGM DATA- 
YES was specified on the PROGRAM assignment state- 
ment, the data is passed to the second program when that 
program issues its first Accept Input operation. 

Following are some examples of Chain Task Request 
operations. 



Task Chaining with Data From A Program Loaded From a 
Terminal: PGM1 is loaded from a terminal by entering the 
program request: PGM1biCPG2lAl4DATA. When PGM 1 
issues an Accept Input operation, the program receives 
CPG2|iiKDATA as data, sets up and issues the chain request 
for CPG2, and passes the characters DATA to the requested 
program. When CPG2 is loaded, it issues an Accept Input 
operation to receive the characters DATA. If both accept 
operations are successful, PGM1 receives a 00 return code, 
CPG2 receives a -1-14 return code. 



Termina 



PGM1 

• Accept 

• Chain 
Request 


I/O Area 
|CPG2lili,DATA| 






Note: In this example, the output length is set to four. 

Multiple Task Chaining Involving Sort Programs: PG1 is 
requested from a terminal in this example. No program 
data accompanies this program request. When PG1 re- 
ceives control, it sets up and issues the chain request for 
S0RT1. S0RT1 is then loaded and begins executing. PG1 
then sets up and issues the chain request for SORT02. 
When SORT02 is loaded, it issues an accept operation to 
receive the data passed from PG1 , performs the sort func- 
tion, and sets up and issues a chain request for PGM2. 
PGM2 is then loaded and executed. 

Note: It is possible for PG1 , S0RT1 , SORT02, and PGM2 
to be executing at the same time, provided the programs do 
not have conflicting resource requirements. It is not 
necessary that one program end before another can begin 
executing. 



Task Chaining from a Program Loaded from the Console: 
PGM1 is loaded from the system operator's console by 
entering the program request: PGM1liCPGM2. PGM1 
issues an Accept Input operation and receives the data 
CPGM2, and sets up the chain request. 



Console 


I-/0 Area 




u 


PGM1 


CPGM2 




• Accept 


|CPGM2li| 






• Chain 
Request 











Note: The output length is zero in this example because 
no data is passed between programs. 
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Terminal 



PG1 

• Chain 
Request 

• Chain 
Request 



I/O Area 
IS0RTH6,' 



S0RT1 



Console 



|SORT02.PGM2^^ 



SORT02 

• Accept 

• Chain 
Request 



I/O Area 
|PGM2feilii.' 




Output length is zero. 
Output length is four. 

Note: CCP/Sort issues a chain request if chaining was spec- 
ified during the generation of the sort program. 



Multiple Chain Requests Involving both Sort and Nonsort 
Programs: PG1 is loaded from the console by entering the 
program request: PG1l!5SHiiS2l!lPH!5P2. PG1 issues an 
accept operation to receive the program data, and sets up 
the chain request. Sort programs SI and S2, and nonsort 
programs operate similarly to the preceding examples. 



PG1 

• Accept 

• Chain 
Request 



c 



SI 

• Accept 

• Chain 
Request 



D 



S2 

• Accept 

• Chain 
Request 



PI 

• Accept 

• Chain 
Request 



□ 



P2 



a 



I/O Area 
CONSOL.S1b.S2l6.PHi>f2| 



■ \s-\mms2^?'\\b92 



.|PG1BK^g2K£1B£2J 



b 



PlWt>IAp2| 



□ 



.^r- JiS2mm?2\ 

— ^ 
3 



Note: PG1 and PI must be set up by the programmer to 
build the chain requests from the input data and to move 
the program name into the name field. SI and 82, the sort 
programs, are set up to use up to 6 characters of input or 
until the first blank (delimiter) is detected, as the name of 
the program for a chain request. The remaining characters 
are passed as data. 
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Considerations 



Operation Codes 



• Symbolic file names that are valid for the requesting 
program are not valid for the requested program because 
the /FILE commands and SYMFILE statements do not 
resolve file name references. 

• The MAXCHAIN parameter of the SYSTEM assignment 
statement must contain a value greater than zero for 
programs that use the Chain Task Request operation. 

If a Chain Task Request operation is made and 
MAXCHAIN-0 was specified in the assignment set, the 
program is terminated with a 3F termination code. The 
MAXCHAIN parameter has a default value of zero. 

• Once a Chain Task Request is accepted by CCP and a 
return code returned to the requesting program, any 
further diagnostics and messages for that request are 
issued to the system operator's console. 

• CCP allocation does not queue requests for unit record 
devices other than the line printer. If a Chain Task 
Request operation has been successfully executed, but 
the chained task requires a unit record device (other 
than the line printer) and is not available, the chained 
task is rejected and a message is issued to the system 
operator's console. 

• If a program that issued a Chain Task Request operation 
abnormally terminates, the program requested by the 
task request is allowed to execute. 

• When a series of task chained programs are active when 
SHUTDOWN is entered, the chained programs continue 
executing to normal end of job. 



Hex 


Dec 


RPG II 




Meaning 


1 


OOOA 


10 


\l)\t)\l>K. 


Release terminal and the 
Communication line. 


001 A 


26 


feSbAK 


Release terminal - keep 
line allocated to the 
program (switched lines 
only). 



Additional Requirements 



• Provide a symbolic terminal name (or blanks) in the 
record area. 



Information Returned 

• Count of Invite Inputs outstanding for this program, 
in the third field of the parameter list. 



Function and Use of Release Terminal 

When issued to a terminal on a nonswitched communica- 
tion line, a Release Terminal operation causes the CCP to 
release the specified terminal from the program, making 
it available to other programs (if it was not the request- 
ing terminal) or freeing it to enter commands (if it was 
the requesting terminal). When Issued to a terminal on 
a switched line, Release Terminal can be issued so that 
it releases the terminal and either: 



RELEASE TERMINAL 

The Release Terminal operation enables an application 
program to give up control of a specific terminal in 
order to make the terminal available to the rest of the 
CCP system. 



1. Keeps the line allocated to the program, or 

2. Releases the line, making it available to other pro- 
grams. 

Keeping the line breaks the connection to the terminal, 
but allows the program to acquire any terminal on the 
line, since no other application program can gain access 
to the line. 
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After completion of the Release Terminal operation the 
third field of the parameter list contains a count of the 
outstanding Invite Input operations for the program, 
including any Invite Input operations issued by the CCP 
because of data accompanying a program request. 

A typical use for the Release Terminal operation is to 
release a requesting terminal from a multiple requesting 
terminal (MRT) program (see index entry) after the pro- 
gram completes its work for the terminal. When an MRT 
program Is handling its maximum' number of requesting 
terminals, it must release a terminal before it can accept 
a request from a new terminal. 

Your program should issue this operation when it no 
longer needs a specific terminal, so that the terminal can 
be available to other programs. Possibly the terminal has 
been yielding negative return codes because of a malfunc- 
tion and the program can make no productive use of the 
terminal. The terminal cannot be placed in offline status 
by the system operator while it is allocated to a program. 
Thus, only after an application program releases the termi- 
nal can it be placed offline. 



Specifying the Terminal 

For this operation you may specify either a defined 
symbolic terminal name or blanks in the record area. A 
defined terminal name must be the name under which the 
referenced terminal was allocated to the program. 

The use of a blank symbolic terminal name is valid for 
this operation only if the program is an SRT program. 

The blank name references the terminal which requested 
the currently executing copy of the program. 

None of the following may be specified as the symbolic 
terminal name: 

• An undefined name {a name not assigned to a terminal) 

• The defined name of a terminal not allocated to this 
program 

• A defined name which references a terminal allocated 
to this program, but which is not the name under 
which that terminal was allocated to the program 

• A sub-terminal name 



Considerations 

• This operation must not be issued as the initial data- 
transfer operation to a requesting terminal which 
entered data as part of the program request. The 
only valid operation which may be issued to such a 
terminal at that time is an Accept Input. 

• This operation must not be issued to a terminal which 
has an Invite Input outstanding to it. 

• In order to issue Release Terminal on a BSCA line, the 
line must be at EOT. 

• (Model Wand Model 12 CCPs) SRT programs using 
symbolic files must open the symbolic file before releas- 
ing the requesting terminal. In RPG II and FORTRAN, 
all files are opened before any I/O operations can be 
performed by the program; however, COBOL and Basic 
Assembler programs must explicitly open all symbolic 
files prior to issuing a Release Terminal operation to the 
requesting terminal. 

SHUTDOWN INQUIRY 

The Shutdown Inquiry operation is used to determine 
whether the system operator has requested CCP system 
shutdown. 



Operation Code 



Hex 


Dec 


RPG II 


Meaning 


1 


0000 





'tzibioo 


Shutdown Inquiry 



Additional Requirements 
None. 

Information Returned 

Return Codes: 

Shutdown not requested 
4 Shutdown requested 



• CONSOIL - the console is automatically released by 
the CCP at the beginning of execution of a program 
requested from it. 
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Function and Use of Shutdown Inquiry 



Function and Use of Wait Operation 



The system operator can request shutdown of the CCP 
at any time. When he does, programs currently running 
should terminate their own execution in a controlled 
manner, rather than be cancelled by the system operator 
without warning. The Shutdown Inquiry operation deter- 
mines whether or not shutdown has been requested and 
sets an appropriate return code in the parameter list. 

If you want your program to perform a controlled termi- 
nation when shutdown is requested, you may include a 
Shutdown Inquiry (or an Accept Input) and a test of 
the return code in your program. For example, perhaps 
you want your program to inform attached terminals 
that the CCP is about to shut down before your program 
terminates. 



WAIT OPERATION (Model 15 only) 



This operation enables the application program to issue a 
wait request for the amount of time specified (in decimal) 
in the data area. The data area is specified in the following 
format: 



Terminal name 



UJ. 



hhmmss 



I ^^^ 1 



1-6 



8-13 



14-16 



where: 



1-6 — Symbolic terminal name 

7 - Blank 

8-13 — hh = number of hours in decimal 

mm = number of minutes in decimal 
ss = number of seconds in decimal 

14-16- Blanks 



The Wait operation enables an application program to 
suspend operation for a specified time period (hours/ 
minutes/seconds). 

Note: To use the Wait operation, the timer option must be 
selected at system generation time. 



Operation Code 



Hex 


Dec 


RPG II 


Meaning 




0014 


20 


tStiAD 


Wait Operation 



Additional Requirements 

• Set output length equal to 10. (If using RPG SUBR92, 
set output length to 24.) 



Wait Operation Format for RPG SUBR92 



op code 


output 
length 


terminal 
name 


b 


hhmmss 


\i>m 


1-4 
where: 


5-8 


9-14 


15 


16-21 


22-24 



1-4 - MMi 

5-8 - 0024 

9-14 - Symbolic terminal name 

15 - Blank 

16-21— hh = number of hours in decimal 

mm = number of minutes in decimal 
ss = number of seconds in decimal 

22-24- Blanks 

Your program resumes execution after the wait operation 
is completed. 



• Specify the time limit in the user's record area. 

Information Returned 
Return Code — Successful 
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Chapter 3: Communications Programming Topics 



This chapter describes several aspects of communications 
programming that are important for you to understand 
before you write application programs that use the CCP 
communications interface facilities. (The interface 
facilities are described in Chapter 2 and are further defined 
in later chapters for each programming language.) The 
following topics are discussed: 

• Terminal classes 

• Program use of terminals 

• Program types 

• Program attributes 

• Communications program logic 

• Symbolic files 

• Switched lines 

TERMINAL CLASSES 

Under the CCP, terminals are divided into two classes, 
based on whether or not they are allowed to enter com- 
mands to the CCP: 

• Command terminals 

• Data terminals 

Terminals are designated either command terminals or 
non-command (data) terminals during CCP assignment. 
(See BSCATERM and MLTATERM assignment statements 
in CCP System Reference Manual.) 



Command Terminals 

A command terminal can request the CCP to perform 
special services; the most significant service request is a 
request to load and initiate a program. Command termi- 
nals must be capable of both input and output, since 
they must be able to transmit commands to the CCP 
and receive messages from the CCP. Once a command 
terminal has requested a program, it is capable of sending 
and receiving data under direction of the program. The 
terminal remains under control of the program until one 
of the following occurs: 

• The terminal is released by the program. 

• The program terminates. 

• The terminal operator enters a /RELEASE command, 
releasing the terminal from the program. 

At that time, the terminal is again allowed to enter com- 
mands to the CCP. A command terminal that is not cur- 
rently signed on to enter commands may also be used by 
a program to send and receive data. 

When a switched line with one or more command termi- 
nals is not under control of a program, the CCP awaits 
calls from command terminals on that line. 



Data Terminals 

A data terminal cannot request CCP services, but can only 
transmit and receive data under control of programs that 
use the terminal. When a program releases the terminal, 
the terminal is not used until it is required by another 
program. 
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A switched line that is connected only to data terminals 
is allocated by the CCP to a single application program 
at a time. Connections are established (answers or calls) 
when the program performs I/O operations referencing 
the symbolic name of a terminal on the line (see index 
entry switched lines). 

A data terminal might have only input capability, only 
output capability, or both input and output capability. 



PROGRAM USE OF TERMINALS 

Your communications program differentiates between 
terminals with which it communicates based on whether 
the terminal requested the program. 



Requesting Terminal 

A requesting terminal is a command terminal that entered 
into communication with your program by entering a 
request for your program while in command mode (see 
CCP System Operator's Guide for a description of com- 
mand mode and program requesting). Once a requesting 
terminal is in communication with your program, it is in 
data mode and is directed by your program to transmit 
data, receive data, or both. 

From a programming point of view, there are few dif- 
ferences between handling requesting terminals and 
program-selected terminals. However, the following con- 
siderations apply to requesting terminals, but not program- 
selected terminals: 

• A requesting terminal can include data with a program 
request (if the program is written to handle data with 
the program request, see PROGRAM assignment state- 
ment in CCP System Reference), therefore, the program 
can issue an Accept Input operation as the first opera- 
tion to the terminal (the CCP in effect issues the first 
Invite Input operation to the terminal in this case). 

• A program that handles only a single requesting termi- 
nal (see Program Types) can use a blank terminal name 
as a reference to the requesting terminal. 

• The program does not know which terminal will be the 
requesting terminal and, therefore, must determine 
which terminal is requesting by examining the terminal 
name returned with an initial operation. 



Program-Selected Terminal 

A program-selected terminal is a terminal that has not 
requested your program, but is needed by your program 
to transmit data, receive data, or both. 

A program-selected terminal can be attached to your 
program in two ways: it can be either specified at assign- 
ment time as required for your program or acquired by 
your program during its execution by means of an Acquire 
Terminal operation. A program-selected terminal can be 
one of the following: 

• A data terminal in standby mode. 

• A command terminal in initial mode. 

• (5704-SC2 only) A command terminal in command 
mode and not formatted by a PRUF display. 

There are hardware characteristics of certain of the MLTA 
terminals that need to be considered in designing and 
writing programs that use program-selected terminals: 

A request for a program that uses a program-selected 
terminal is rejected by the CCP if the terminal is on a 
switched line that is already connected. 

Data Terminals: No special consideration. 

Command Terminals: Command terminals operating 
under 5704-SC1 must be in initial mode in order to be 
program selected. Command terminals operating under 
5704-SC2 must be in either initial mode or in command 
mode and not formatted by a PRUF display in order to 
be program selected. However, while in initial mode, 
command terminals are invited for input by CCP. Thus, 
one of the steps in the allocation of a command terminal 
In initial mode is a Stop Invite Input request from CCP. 
If the Stop Invite Input fails (that is, the read to the 
terminal cannot be cancelled), the program selection of 
the terminal is considered to have failed. Thus, the 
capability of cancelling a read operation is crucial to the 
program selection of command terminals. 

There are certain terminal types for which reads cannot be 
cancelled once they have been issued. Once a read has been 
issued to the terminal, no other operation can be started to 
the terminal until the input operation completes. The 
terminals whose hardware characteristics fall into this 
category are: 

1. 2741 

2. 2741 Dial 
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3. 2740 Dial with transmit control 

4. 2740 Dial with transmit control and checking 

5. 3767 simulating a 2741 

6. 5100 simulating a 2741 

Therefore, if these terminals are assigned as command 
terminals, it will be extremely difficult for them to be 
program selected. Application programs using these 
terminals should be written so as to handle them as request- 
ing terminals. This may require writing a program as a 
multiple requesting terminal (MRT) program. 



PROGRAM TYPES 

Two general types of communications programs can be 
written to run under the CCP: 

• Single Requesting Terminal (SRT) Program 

• Multiple Requesting Terminal (MRT) Program 



Programs are designated as either MRT programs or non- 
MRT (SRT) programs by the PROGRAM statement dur- 
ing CCP assignment (see CCP System Reference Manual). 
If the MRTMAX keyword is used on the PROGRAM state- 
ment, the program is considered an MRT program. (MRT- 
MAX specifies the maximum number of requesters the pro- 
gram can handle concurrently.) SRT and MRT programs 
have different characteristics and place significantly different 
requirements on the application programmer (see Exam- 
ples of Application Program Logic, later in this chapter). 



Single Requesting Terminal (SRT) Program 

An SRT program can service the needs of only one 
requesting terminal on each execution (that is, from the 
time the program is initiated by the CCP until it termi- 
nates). A typical example of an SRT program is an 
inquiry program that processes one or more messages 
from its requester and then terminates, using system 
resources only briefly. The program may access or 
update several different files in order to complete its 
processing. An SRT program might also transmit 
batched data to a host system, such as a System/370, 
where the host is the requester of the program. 

An SRT program can be written to acquire (or require, 
by means of the TERMS parameter of the // PROGRAM 
assignment statement) one or more program-selected 
terminals while servicing the requesting terminal. For 



example, perhaps the requester wants information from 
several terminal locations or wants to send information 
to other locations. An example of such a program might 
be an inquiry program that serves a credit office applica- 
tion. The requesting terminal asks for information about 
a customer from terminals in other offices by issuing a 
message to program-selected terminals in those offices 
specifying the customer identification. The attached 
offices reply with the latest credit information. 

If sufficient resources are available, the CCP can load and 
initiate separate, duplicate copies of an SRT program, each 
copy servicing a different requesting terminal. If resources 
are not available, second and subsequent requests for the 
program may be placed on a queue by the CCP (see /Q 
command in CCP Terminal Operator's Guide). Multiple 
copies of an SRT never-ending program are not permitted 
under the CCP. 



Multiple Requesting Terminal (MRT) Program 

An MRT program can service requests from one or more 
terminals each time it is executed. An MRT program 
may be written to handle multiple requesting terminals 
concurrently. The maximum number is specified by the 
MRTMAX keyword of the PROGRAM statement at 
assignment time. Requests for the program that are 
received while the program is already handling its maxi- 
mum number of terminals are queued by the CCP (if the 
requester has indicated queuing) to be honored when the 
program has released a terminal; therefore, you need not 
check this in your program. Only a single copy of any one 
MRT program can be in main storage at a time. 

New requesting terminals are attached to an MRT pro- 
gram by means of Accept Input operations (see index 
entry). A program is notified that a new terminal is 
attached by receiving a new terminal name from an 
Accept Input. 

MRT programs must maintain status information regarding 
several requesting terminals in order to remember which 
terminals are attached and the status of each terminal rela- 
tive to the program. 

You must explicitly release a requesting terminal once 
your program has completed the processing required by 
the terminal (see index entry Release Terminal operation) . 
If not released, the terminal remains allocated to the pro- 
gram until the program terminates. An MRT program 
should be written to terminate when it has no more 
requests to service, unless the program is defined as a 
never-ending program {see Program Attributes). 
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Many application programs, both order entry and inquiry, 
could be written in either single requester or multiple 
requester form. If a program is likely to be often requested 
from more than one terminal concurrently, it is more 
efficient to code the program as an MRT program, since 
the MRT version is not as likely to cause resource conflicts 
as are numerous requests of an SRT program. Also, an 
MRT program should take less main storage space than 
separate copies of an SRT program. 

An MRT program can be defined as MRTMAX-1 on the 
PROGRAM assignment statement. In this case, only one 
request is processed at a time, as in an SRT program, but 
subsequent requests for the program can be queued to the 
same copy of the program if the requesting terminal has 
elected to queue requests (/Q command). An MRT program 
defined in this way does not have to keep track of multiple 
attached terminals; however, the program cannot process 
multiple requests concurrently and only one copy of the 
program can be in main storage at a time. 

If an MRT program is specified as NEVERENDNO and 
MRTMAX-1 (capable of handling only a single requesting 
terminal), the program is reloaded each time it is requested, 
even if it is in storage at the time of the request. 



SPECIAL PROGRAM ATTRIBUTES 

The two general communications program types— SRT and 
MRT— may have additional special attributes: 

• Never-ending 

• Serially reusable (Models 10 and 12) 

• Dedicated (Models 10 and 12) 

• Program request under format 

• Sort 



Never-Ending Program 

If a program is to be requested frequently throughout the 
CCP run and if sufficient main storage is available, it can 
be defined as a never-ending program (NEP). An NEP, once 
it has been loaded and initiated by the CCP, does not 
terminate (except in an unusual situation) until the CCP is 
shut down. Under Model 10 and Model 12 CCP, once an 
NEP is loaded, the main storage it occupies is permanently 
unavailable for other programs, even if it terminates in an 
unusual situation. Under Model 15 CCP, the main storage 
occupied by an NEP is released for use by other programs 
if the NEP terminates in an unusual situation. 

An NEP with no work to do (no outstanding Invite Inputs) 
issues an Accept Input operation and waits until it is 
requested again. See Disk File Considerations in Cfiapter 9: 
Program Preparation for a Model 15 CCP consideration in 
this situation. 

When using NEPs, you should be aware of facts concerning 
system resource allocation: 

• While a particular system resource is allocated to a NEF', 
requests for programs that also require the resource will 
be rejected, regardless of the queuing status (/Q or 
/NOQ) of the requesting terminal. 

• When an NEP requires a system resource that is already 
allocated to another program, the request for the NEP 
will be rejected without regard to the queuing status of 
the requesting terminal. Under Model 1 5 CCP, a request 
for a NEP can be queued if CCP is handling the maximum 
number of tasks or if user program area is not immedi- 
ately available. 



The PROGRAM assignment statement specifies whether a 
program has any of these attributes. 
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An NEP should either check for the shutdown return code 
or issue the Shutdown Inquiry operation so that CCP shut 
down can be successfully completed. 

When writing an SRT program as a never-ending program, 
be aware that second and subsequent requests for the pro- 
gram are rejected by the CCP. 

To ensure that the required main storage is available for 
the never-ending program, it is recommended that all 
never-ending programs (only one of which can be an SRT 
program) be loaded into main storage prior to requesting 
any other programs. Main storage fragmentation could 
result if never-ending programs are not started as the initial 
programs in the system. 



Note to Model Wand 12 Users: It is especially important 
to load NEPs first if they use the 3270 Display Format 
Facility, because the Display Format Facility is loaded into 
the user program area for execution. 



Note to Model 15 Users: CCP always loads NEPs at the 
opposite boundary of the user program area from non- 
NEPs to avoid fragmentation of this area, which could 
otherwise severely impair CCP performance. 



Serially Reusable Program (Models 10 and 12) 

A serially reusable program terminates normally after 
executing and can be re-executed without requiring a 
fresh copy of the program to be loaded in main storage. 
A serially reusable program must restore data areas and 
modified instructions to their initial condition prior to 
reusing those data areas and instructions when the program 
is reinitiated. Only COBOL and Basic Assembler programs 
can be written to be serially reusable. Never-ending 
programs cannot be specified as serially reusable. 

Use of serially reusable programs can increase CCP effi- 
ciency, especially if the programs are requested frequently, 
since the need for repeated loading of the program can be 
avoided in some cases. If other programs are being request- 
ed and loaded, however, timing of the requests may be such 
that, when a subsequent request for the serially reusable 
program is entered, the main storage space previously 
occupied by the serially reusable program is already 
occupied by another program. In this case, the serially 
reusable program must be reloaded. 

Dedicated Program (Models 10 and 12) 

When a program defined as a dedicated program is running. 



it must be the only program running in the CCP program 
level, even though multiprogramming is allowed by the CCP. 
It may not be initiated while other programs are running 
and other programs may not be initiated while it is running. 
This program attribute applies only in CCP systems that 
allow more than one program to be executing concurrently. 

You might want to designate a program as dedicated if it 
requires exclusive use of disk files that are otherwise 
shareable, for example, a program that performs summary 
operations at a particular cut-off time, such as day-end or 
month-end, when concurrent operations on the files are 
not desired. A dedicated program might also be used in 
applications where fast response time is important and 
the program relies on exclusive access to all communica- 
tion lines, disk files, and other system resources. 



Program Request Under Format 

With a non-PRUF request, the maximum amount of data 
that can be passed to a user program, as a program request, 
is 78 characters. This is not an efficient use of the 3270 
terminal buffer. An efficient method of using the 3270 
terminal is to write a short SRT program which will put a 
display at a terminal, and then go to end of job. The ter- 
minal operator can then fill in the display with data, cause 
attention (PF key or ENTER key) and have the display at 
the terminal essentially request another program. The 
whole display will be used as program request data. This 
concept of requesting programs and passing up to a full 
screen of data to the requested program is called Program 
Request Under Format (PRUF). 

The use of PRUF will provide the following capabilities: 

• More than one field of data may be passed as program 
request data. 

• More than 78 characters of data may be accepted as 
program request data. 

• The AID character is passed as program request data 
to PRUF programs, but not to non-PRUF programs. 

• The data passed to the user program with the program 
request may or may not be processed by DFF under 
format control if the program being requested is a 
PRUF program. However, DFF does not process non- 
PRUF program request data. 

• Main storage can be used efficiently, as a program need 
not be in main storage during a lengthy terminal 
operator keying operation. 
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A program is defined as d PRUF program if the PRUFLNG 
parameter is specified in the assignment PROGRAM state- 
ment. The PRUFLNG parameter specifies the maximum 
length of program request data to be sent by the terminal. 
If the PRUF program is also a DFF program, the PRUF$Z 
parameter Is specified in the PROGRAM statement. This 
gives the name of the format which will be used by DFF to 
format the program request data. (See the IBM System/3 
Models 10 and 12 Communications Control Program 
System Reference Manual, GC2 1-7588, or the IBM 
System/3 Model 15 Communications Control Program 
System Reference Manual, GC21-7620, for a complete 
description of these keywords.) 

To Inform CCP that the next program request from a 3270 
terminal wiill be a PRUF program request, user program A 
(which may be a PRUF or a non-PRUF program) executes 
a PRUF-Put operation to the 3270 terminal as its last 
output operation prior to releasing that terminal or going 
to end-of-job. If the terminal receiving the PRUF-Put 
operation was a requestor of the program issuing the 
PRUF-Put, that program must have ENDMSG-NO specified 
on its PROGRAM statement. 

Before returning the terminal to command mode status, 
CCP will reserve an area from the TP buffer, equal in length 
to the maximum PRUFLNG, as a temporary hold area for 
the program request data from that terminal. It should be 
noted that CCP will only reserve a TP buffer area equal in 
length to the PGMREQL, as specified in the SYSTEM 
statement, if the last user output operation to that terminal 
is not a PRUF-Put operation. 



When all the needed fields have been keyed in, press the 
ENTER key, a PF key, or insert a card into the card 
reader (this action is device dependent). Now the program 
request for program B enters the system. If program B is 
a non-DFF program, the following data will be passed as 
program request data to program B: 



cu dev aid c@. sba @@. 



'± 



pgmnaniti pgmdata . . . 
I I —Jl I L 



1 



4-5 6 



7-8 9 . . . 



Note: If the program is written in RPG II 
in column 15 of the input specifications. 



these fields start 



where: 

cu 

dev 

aid 

c@ 

sba 



pgmnam 



pgmdata 



Control unit address of the 3270 terminal 

Device address of the 3270 terminal 

AID character 

Cursor address 

Set buffer address (X'lV) 

Address of start of pgmnam field 

Name of program B 

EBCDIC character for a blank (X'40') 

Remainder of 3270 text stream or the 

number of characters specified by 

PRUFLNG parameter, whichever is 

smaller, 



The first field received from the 3270 must be the program 
name of the PRUF program to be requested and must begin 
in row 1, column 2 or later on the screen. The program 
name must be either entered in the first field on the screen 
(that field defined as an input field) or sent to the screen 
(by a PRUF-Put operation) in the first field defined as an 
output/input field. The terminal operator then keys in 
data to all needed input fields on the screen. 
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APRUF program request will return 8 p\us PGMNAM length 
plus / additional character of data more than a program 
request for a non-PRUF program. If a program B is a DFF 
PRUF program, DFF will attach the PRUF$Z format to the 
program using that format for control and move data into 
program B's input record area at program request time. (See 
Chapter 8 for a description DFF handling of accept input 
data.) 

The following considerations apply when running CCP 
assignment sets with PRUF programs: 

• PRUF-Put operations to the system console are invalid. 

• If the 3270 terminal has been formatted by a PRUF- 
Put operation, and the program being requested is a 
non-PRUF program, CCP will reject the program request. 

• If PRUF is not active on the 3270 terminal, and the 
program being requested is a PRUF program, CCP will 
issue a 02 return code following the Accept Input 
operation. The program request data returned in this 
case will begin with the first character of data follow- 
ing the program name and a blank. This will not have 
been processed by DFF. 

• If PRUF is active on the terminal, all system messages 
to that terminal will be output in positions 82 through 
160. Therefore, these positions should be used with 
caution at program request time to PRUF programs. 

• A terminal which had a PRUF-Put format sent to it has 
this condition (PRUF-type terminal) terminated by 
the next non-PRUF Put operation sent to the terminal, 
or if the terminal CLEAR key is pressed. 



Sort Programs (5704-SC2 Only) 

Sort programs must be generated offline from CCP but can 
be executed as user programs under CCP. Multiple sort 
programs can be active under CCP at one time providing 
each program has a unique name, and unique work and 
output files. A minimum of three files must be defined on 
the Fl LES parameter of the PROGRAM assignment state- 
ment for a sort program: 

• An input file with CG access. Input files can be opened 
with CO, 10, and lOU access methods but the opening 
program must terminate successfully before the file can 
be shared. Up to eight input files can be defined. 

• A work file with CA access and specified as nonshareable. 

• An output file with CO access and specified as nonshare- 
able. After a sort program has completed successfully, 
the output file can be opened using CA, CG, CO, CU, 
DG, dr DU access methods. 

Note: The sort input file cannot be specified as the sort 
output file. The use of SYM FILE statements and /FILE 
commands to resolve sort file name assignments is sup- 
ported, but do not attempt to overlay the input file with 
the output file using the SYMFILEand /FILE facilities. 

After a sort program has terminated successfully, the input, 
work, and output files are available to other sort and non- 
sort programs. 

When a sort program is requested from a terminal, addition- 
al modules with the prefix $DG are loaded by the sort pro- 
gram. These additional modules (initially supplied on the 
system pack) must be on the same pack from which the 
sort pfogram was loaded. For example, if a sort program 
has been placed on the program pack (PACK-PROGRAM 
specified on the PROGRAM assignment statement), the 
$DG modules must be copied to the program pack from 
the system pack. This can be accomplished using the 
following OCL: 



// COPY FROM-nn, TO-nn, LIBRARY-0,RETAIN-P, 
NAME-$DG.ALL 

Because of space considerations, it may be more convenient 
to put the sort program on the system pack. 
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Once a sort program has started, the requesting terminal is 
released and is free to perform other operations. All sort 
messages indicating the status of the sort program are issued 
to the system operator's console after the requesting ter- 
minal is released. 

Note: If another program is allowed to update the sort in- 
put file at the same time that a sort program is processing 
the file, improper results can occur. For this reason, either 
specify NOSHR for the sort input file in the assignment 
set, or allow input only programs to access the file while 
the sort program is executing. See CCP System Reference 
manual for your system and the IBM System/3 Disk Sort 
Reference Manual, SC21-7522, for additional information 
about sorts. 

If shutdown is requested, an active sort program is allowed 
to complete execution to normal termination. 



Sorts and Task Chaining 

When a sort program is to issue a chain request, the name of 
the requested program and the data (if required) must be 
passed to the sort program with the program request. The 
sort program interprets the first six characters (or up to the 
first blank if the name is less than six characters) as the 
name of the program to be requested. The remaining data 
is passed as data along with the chain request. 



EXAMPLES OF APPLICATION PROGRAM LOGIC 

Programs that do not communicate with online terminals 
are most often designed to run in batch processing mode; 
that is, one program completely finishes its processing 
before the next program begins to run. Often, the pro- 
gram processes a large number of data records which con- 
tain similar data in similar format. Such a program prob- 
ably uses only a few data files; perhaps it builds a tempor- 
ary file and updates a permanent file. (Communication 
terminals can also be used to advantage in batch process- 
ing mode.) 

Most communications programs, on the other hand are 
designed for a very different environment, characterized 
by online processing; that is, data enters the computer 
directly from the point of origin and is transmitted 
directly to where it is used. The communications environ- 
ment often includes several terminals, each making 
requests in a random manner, each request requiring the 
execution of a different program. Each program might 
process only a single transaction at a time for the 
terminal, affecting several different files. The majority 
of communications programs utilize this type of process- 
ing, which requires program logic different from that 
required for batch processing. 

The following examples illustrate the typical logic 
required to deal with: 



If more than 80 characters of data are passed to a sort pro- 
gram, the sort program issues a CCP DATA TRUNCATED 
message to the console, and issues the chain request, even 
though the data has been truncated. 



• A single requesting terminal 

• A single requesting terminal and program-selected 
terminals 



If CCP is handling the maximum number of chain requests 
when a sort program issues a chain request, CCP issues a 
TASK CHAIN UNSUCCESSFUL message to the console. 
In this case, the sort program is allowed to complete exe- 
cution, but the chain request is neither issued nor executed. 



• Multiple requesting terminals 

• Multiple requesting terminals and program-selected 
terminals 



For an example of a sort program issuing a chain request, 
see index entry: chain task request. 
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Single Requesting Terminal 

Figure 3-1 shows the program logic that might be used in 
a program that deals with only a single requesting termi- 
nal on each execution. The numbered notes further ex- 
plain aspects of the logic. 

Q If data is expected with the program request, no 

Invite Input is required, since the first Accept Input 
will return the requester's name and data in the 
record area. If data is expected with the program 
request, an Accept Input must be issued. 

^ A Put operation with a blank terminal name causes 
the name of the requesting terminal to be returned 
in the record area. Invite Input can then be issued 
to that terminal. If no data is expected with the 
program request, a Get operation with a blank termi- 
nal name can be used after the Put operation instead 
of the Invite Input and Accept Input operations. 

Q If data is expected with the program request, the 

first input operation is an Accept Input. Subsequent 
input operations can either be Accept Input or Get 
operations. If Accept Input is used. Invite Input 
must be issued prior to the Accept Input except for 
the first Accept Input operation when data is ex- 
pected with the program request. 



C Initiate \ 

Program J 



Data 

expected witP 

program 

request^ 

No 



Put with 
blank 
terminal 
name C\ 



Invite 
Input 



Accept 
Input 



© 



Put 
Data 



Yes 



Yes 



More data 



Terminate 
Program 



Figure 3-1. Program that Communicates with a Single Requesting 
Terminal 
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Figure 3-2. Program that Communicates with a Single Requesting Terminal and Program-Selected Terminals 
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Single Requesting Terminal and Program-Selected Terminals Q 

Figure 3-2 illustrates the logic that could be used by a 
communications program to deal with a single requesting 
terminal and one or more program-selected terminals. The 
numbered notes further explain characteristic aspects of 
this type of logic. 

O These steps (enclosed by the broken line) are per- 
formed only the first time through the program. A 
program can determine which terminals to select in 
various ways: 

• The terminals required by the program are 
specified at assignment time and the terminals 
have been allocated to the program before it 
gains control. 



e 



• The program knows which terminals it needs, 
but must acquire them itself. 

• The program does not know which terminals to 
select. The program might have to obtain this 
information from the system operator, a termi- 
nal, or from the data he is processing. 



When a program is capable of handling more than 
one terminal, it may need to set aside a separate 
work area for each. The program would use the 
work area to retain enough information to remem- 
ber what it has previously received from each termi- 
nal. When, for example, input data consists of more 
than one part, a separate routine often processes 
each different part. A complete input message might 
consist of a customer name or number, an order num- 
ber, item numbers, quantities, prices, and other infor- 
mation, entered as separate lines of input data and, in 
fact, as separate transmissions from the terminal. The 
program must be able to determine which portion of 
the data it is processing, where to store that data in 
the work area, and which routine processes that por- 
tion of the data. 

When a program-selected terminal has completed a 
message sequence, the program must determine 
whether it wants additional input from the terminal. 
For example, if the program has received an end-of- 
input signal or if the system operator has issued the 
SHUTDOWN command (and the program recognizes 
the shutdown return code), the program should not 
issue an Invite Input to the terminal. 



When the program knows which terminals to select, 
it can acquire them (if not already allocated by 
assignment). Put a "Hello" message, and Invite 
Input, as required. 



If any other program-selected terminals have input 
messages to transmit (have outstanding Invite Input 
operations issued to thenh). the program finishes 
processing them. When all input from the program- 
selected terminals and the requesting terminal has 
been processed, the program terminates. 
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Figure 3-3. Program that Communicates with IVIultiple Requesting Terminals and No Program-Selected Terminals 
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Multiple Requesting Terminals 

Figure 3-3 sliows thie program logic that miglit be used in 
a program that deals with multiple requesting terminals. 
The numbered notes further describe key steps in the 
logic. 

O The Invite Input is bypassed the first time through 
since it is not known which terminal requested the 
program until after the Accept Input operation. 

Q When the program has received the final portion of 
a message sequence from a particular terminal, it 
must determine whether it wants additional input 
from the terminal. If, for example, the terminal 
has indicated that this is the last message it will 
send or if the system operator has issued the 
SHUTDOWN command to shutdown the CCP 
(and the program recognizes the shutdown return 
code), the prog'-fem should not issue an Invite Input 
to the terminal. 



If no Invite Input is to be issued to this terminal, 
the terminal is released from the program. 

O If requests from other terminals are in process or 

awaiting processing, they must be completed before 
the program terminates. The number of remaining 
requests can be determined from the count of 
outstanding Invite Inputs, returned in the third 
field of the parameter list by the previous Release 
Terminal operation. 
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Figure 3-4. Program that Communicates with IViultiple Requesting Terminals and Program-Selected Terminals 
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Multiple Requesting Terminals and Program-Selected 
Terminals 

Figure 3-4 sliows an example of the general logic of a 
communications program that accepts requests concurrently 
from several requesting terminals and, in satisfying the 
requests, contacts one or more program-selected terminals. 
As each requester is satisfied, the program releases it, 
enabling the requester to enter other commands to the 
CCP. The program-selected terminals in this example are 
not released from the program until the last requester has 
been served and the program is terminated. The numbered 
notes further explain key steps in the logic. 

O The first-time processing required when program- 
selected terminals are used is described in Figure 3-2. 

When a program is capable of handling more than 
one terminal, it may need to set aside a separate 
work area for each. The program may have to 
retain enough information to remember what it 
has previously received from each terminal. When, 
for example, input data consists of more than one 
part, a separate routine often processes each differ- 
ent part. A complete input message might consist 
of a customer name or number, an order number, 
item numbers, quantities, prices, and other informa- 
tion, entered as separate lines of input data and, in 
fact, as separate transmissions from the terminal. 
The program must be able to determine which por- 
tion of the data it is processing, where to store that 



data in the work area, and which routine processes 
that portion of the data. 

© When a program-selected terminal has completed a 
message sequence, the program must determine 
whether it wants to invite additional input from the 
terminal. For example, if the program has received 
an end-of-input signal or if the system operator has 
issued the SHUTDOWN command, the program 
should not issue an Invite Input to the terminal. 

O If requests from other terminals are in process or 

awaiting processing, they must be completed before 
the program terminates. 
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SYMBOLIC FILES 

Under the CCP, you can write a program using a file name 
(symbolic file) which might refer to a different physical 
disk file each time the program is executed. The physical 
(actual) files must be similar in format (that is, the same file 
organization, access method, record length, key length, and 
key position), although different in content. For example, 
you could write a student report program that generates 
a report for a different school on each execution, depending 
on which school's student file is associated with the symbolic 
file for a particular run (Figure 3-5). 



Student Report Program 



Requesting Terminals /File command 
says: "For this run, School X is 
School 1" 




Symbolic file name 
used in the program 




Physical files to 
which the symbolic 
file name may refer. 



The assignment statements for this example might look like this (see CCP System Reference Manual 
for explanations of the assignment statements): 

// DISKFILE NAME-SCH00L1, ORG-!, RECL-100, KEYPOS-94, KEYL-7 
// DISKFILE NAME-SCH00L2, ORG-I, RECL-100, KEYPOS-94, KEYL-7 
// DISKFILE NAME-SCH00L3, ORG-I, RECL-100, KEYPOS-94, KEYL-7 
//SYMFILE NAME-SCHOOLX, DISKFILE-'SCHOOLI, SCH00L2, SCHOOLS' 
// PROGRAM NAME-STURPT, PGMDATA-NO, FILES-'SCHOOLX/DG' 

Figure 3-5. A Symbolic File 



The specific physical file to be used on a particular run of 
the program is determined by the operator of the requesting 
terminal by means of a /Fl LE command prior to the program 
request (see CCP Terminal Operator's Guide ot CCP System 
Operator's Guide for a description of this command.) The 



names of one or more valid physical files are associated with 
the symbolic file name by means of the DISKFI LE and 
SYMFILE assignment statements (see CCP System Refer- 
ence Manual). // Fl LE OCL statements for the physical 
files are entered by the system operator during CCP 
startup. 
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Considerations and Restrictions in Using Symbolic Files 

• An MRT program cannot use symbolic files. 

• On the Model 10 Disk System or the Model 12, if your 
program releases the requesting terminal prior to the 
initial opening of any symbolic file, the CCP will cancel 
your program. You must be especially careful in pro- 
grams that can be requested from the console, since the 
console is automatically released from your program by 
the CCP. 

To use symbolic files in Model 10 and Model 12 CCP 
application programs that can be requested from the 
console, you must specify at assignment time (// PRO- 
GRAM statement) that data is allowed with the program 
request, even if no data will actually be entered. The 
CCP releases the console when the first Accept Input in 
the program has resulted in the name CONSOL and 
program data being passed to the user program. There- 
fore, the symbolic file must be opened before the Accept 
Input. In RPG II all files are opened before any I/O 
operations can be performed. 

• On the Model 10 Disk System or a Model 12, a serially 
reusable program (COBOL or Basic Assembler) will 
access the same physical file when it is reused (executed 
without being reloaded) as it was used on its initial 
execution. 



SWITCHED LINES 

A switched line is a communication line on which the 
connection between the system and the terminal is established 
by dialing a data set (telephone) number either automatically 
or manually. After the connection is completed, data can 
be transmitted. A terminal on a switched line is disconnected 
under control of an application program by means of the 
Release Terminal operation (see Operations, in Chapter 2). 
This operation can specify whether to keep the line allocated 
to the program or to "return" it to the CCP. 

If command mode terminals are attached to a switched 
line, the CCP awaits calls from the terminals, rather than 
polling the terminals for commands. 

Under the CCP, a data set (telephone) number can be 
established at assignment time (TERMNAME statement) 
for each terminal name assigned to a terminal that might 
be called by an application program running under the CCP. 
Also, the attribute set associated with a terminal on a 
switched line can assign the attributes auto/manual call 
and auto/manual answer. 



Auto Call 

If a terminal is defined asauto call by the TERMATTR 
assignment statement, an I/O operation from a user program 
to the terminal on a switched line that is not connected 
causes the CCP to place a call to the terminal automatically. 
Auto call cannot be used with MLTA terminals. In order 
to use auto call on BSCA terminals, the Auto Call feature 
must be installed on the BSCA hardware. 

Manual Call 

If a terminal is defined as manual call by the TERMATTR 
assignment statement, an I/O operation from a user program 
to the terminal on a switched tine that is not connected 
causes the CCP to inform the system operator that he must 
dial a data set number on a certain line. 

Auto Answer 

If a terminal is defined as auto answer, the CCP awaits a 
call from the terminal, and automatically answers the call 
(if the auto answer feature is activated on the data set). 
An I/O operation from a user program to a switched line 
that is not connected causes the CCP to inform the system 
operator that the program is awaiting a call on the switched 
line. 

Manual Answer 

In manual answer, the system operator answers a call from 
a terminal. The system operator and terminal operator then 
place their data sets in data mode; the CCP waits for input 
from the terminal. An I/O operation from a user program 
to a switched line that is not connected causes the CCP to 
inform the system operator that the program is awaiting 
a call on the switched line. 



BSCA Switched Line 

On a BSCA switched line, the CCP allocates the line to the 
user program when the first terminal on the line is allocated. 
In order to communicate with a terminal on the line, the 
program must either already have the line allocated or the 
line must be free for allocation (not currently allocated to 
another program). 

Invite Input operations can be outstanding to multiple 
terminals on the same line after a connection has been made. 
The CCP determines which symbolic name to return with an 
Accept Input operation from the exchange identification 
characters, which are associated with a specific terminal 
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name by the BSCATERM assignment statement (see CCP 
System Reference Manual). 

Note: If a communications operation is issued to a terminal 
for which VERIFYID-NO is specified in the TERMATTR 
assignment statement and the operation is an answer 
operation, then any terminal that calls satisfies the operation. 

BSCA Requesting Terminals 

The following examples illustrate the use of BSCA switched 
lines with requesting terminals. Assume you have the 
following switched point-to-point network: 



CCP 

User program 



Common Carrier 

(telephone) 

Exchange 



ID1 (TERM!) 



ID2 (TERM 2) 



ID3 (TERM 3) 



ID1 1 

ID2 [ Exchange ID'S 

ID3 ) 
TERM1 1 

TERM2 [ Symbolic terminal names 
TERM3) 




Program 




3. 



ID2 (TERM2) calls, makes connection, signs on, 
makes a program request, and communicates with 
program under the name TERM2. 

Program issues Release Terminal operation, keeping 
the line. ID2 is signed off automatically. 

Program now has control of the line, can call or ac- 
cept calls from ID1, ID2, or ID3 in data mode. 

Note: No terminals are allowed to call in and sign on 
while the line is in control of the application program. 




4. 



ID2 (TERM2) calls, makes connection, signs on, 
makes a program request, and communicates with 
program under the name TERM2. 

Program reaches end of job without issuing a 
Release Terminal operation. 

TERM2 is still connected and can enter other 
commands and program requests. 

TERM2 signs off specifying DROP. The connection 
to TERM2 is broken. 

ID1, ID2, and ID3can call and sign on. 
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Program-Selected Terminals 

The following examples illustrate the use of BSCA switched 
lines with program-selected terminals. Assume, again, a 
switched point-to-point network. 




CGP 



V y-^ ID3 



Program issues Invite Input operations to ID1, ID2, 
and ID3. 

IDS calls and communicates with program as 
TERMS (Accept Input operation code). 

Program issues Release Terminal to TERMS with 
or without keeping the line and issues another 
Accept Input (the line is disconnected). 

ID1 and ID2can call and communicate with the 
program; IDS cannot, since it no longer has an 
Invite Input. 



Example 2: 
Program 



CCl- 




4. 



Program issues Invite Input operations to ID1, ID2, 
and IDS. 

IDS calls and communicates with program as 
TERMS (Accept Input operation code). 

Program goes to end of job without releasing 
terminals (programs should issue Stop Invite 
Inputs to terminals with outstanding Invite 
Inputs before going to end of job). 

All Invite Inputs are cancelled; terminals are 
available to other programs. 




1. Program calls ID2 and communicates with ID2 as 
TERM2. 

2. Program issues Release Terminal to TERM2 with 

or without keeping the line (the line is disconnected). 

3. Program can call ID1, ID2, or IDS and issue 
Invite Inputs. CCP either automatically calls 
the correct data set number (auto call) or 
provides the correct data set and line number to 
the system operator (manual call). 
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MLTA Switched Line 

On MLTA switched lines, there is only one terminal per 
line. Both the line and the terminal are allocated to the 
program by the CCP. The examples of using a switched 
line with command terminals and data terminals given 
under BSCA Switched Line apply also to MLTA switched 
lines, except that: 

• All terminals that call on an MLTA switched line have 
the same symbolic terminal name; they cannot be 
uniquely distinguished from each other. 

• MLTA terminals on switched lines do not have exchange 
identification characters associated with them. 



Switched Line Disconnect Considerations 

The CCP disconnects a terminal on a switched line in any 
of the following circumstances: 

• User program issues a Release Terminal operation speci- 
fying the keep-line modifier. 

• User program issues a Release Terminal operation without 
the keep-line modifier to a data terminal (see index entry). 



• User program issues a Release Terminal operation to a 
command terminal that is not the requesting terminal. 

• The user program terminates *hile the line is being used 
with a program-selected terminal. 

• The system operator issues a VARY OFFLINE command 
to a terminal connected to the switched line. 

• A requesting terminal on the line signs off (/OFF) and 
the DROP option is in effect. 

The only Release Terminal operation for which the terminal 
is not disconnected is a Release Terminal operation to the 
requesting terminal without the keep-line modifier. In this 
case, the requesting terminal is still in command mode and 
can continue to enter commands to the CCP. 

When a command terminal is connected on a switched line, 
the CCP attempts to maintain the terminal connection as 
long as possible. After a program has terminated and the 
CCP has sent the "ended" or "released" message (which 
can optionally be suppressed by specifying ENDMSG-NO 
on the // PROGRAM assignment statement), the CCP 
attempts to receive from the terminal for an amount of 
time that is based on the error retry count specified by the 
N RETRY parameter on the // BSCALINE assignment 
statement. 
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Chapter 4: COBOL 



To request CCP communication services, you must write 
your COBOL programs using the standard application 
program interface described in Chapter 2. This standard 
interface is composed of the following elements: 

• Communications Service Subroutine 



Record Area 

The number of record areas you must define depends upon 
the logic of your program. You need not always define 
separate record areas for input data and output data, or for 
operations with different terminals. 



Parameter List 



• Record Area 



Note: This chapter assumes that you are familiar with the 
COBOL language. For more information on writing and 
executing COBOL programs, see the publications IBM 
System/3 Subset American National Standard COBOL , 
GC28-6452, and IBM System/3 Subset American National 
Standard COBOL Compiler and Library Programmer's 
Guide, GC28-6459. 



COBOL USE OF THE STANDARD INTERFACE 

To use the standard application program interface to the 
CCP, the COBOL application program must: 

1. Define the record area and the parameter list (see 
Defining the Record Area and Parameter List). 



Each record area defined must be large enough to contain 
either the program name (if a chained task), or the terminal 
name, and the maximum length of data to be either re- 
ceived as input in the record area or to be transmitted as 
output from the record area. Define the record areas in 
the WORKING-STORAGE SECTION of the DATA 
DIVISION of your COBOL program. 

The name field portion of the record area must be specified 
as an alphameric character field. In the following example, 
TERM-NAME is the name of a symbolic terminal name 
field that has been initialized to blanks: 

05 TERM-NAME PIC X(6) VALUE SPACES. 

Define the data portion of the record area as required by 
your formats. Unless you are using a BSCA line with the 
Text Transparency feature (see index entry Terminal 
Attribute), you should define all elementary data items as 
one of the following types: 



2. Set the contents of the parameter list and the record 
area (see Setting the Contents of the Parameter List 
and Record Area). 



Alphanumeric 
Alphabetic (PICA). 



Call the communications service subroutine, identi- 
fying the program's parameter list and record area, to 
initiate the operation (see Calling the Communications 
Service Subroutine). 

Examine information returned by the CCP in the 
parameter list and record area and, for input operations, 
process the input data (see Examining Returned In- 
formation). 



• Numeric DISPLAY (PIC 9 , 
DISPLAY or omitted). 



orS9. ..with USAGE as 



• Numeric zoned-decimal (PIC 9 or S9 with USAGE speci- 
fied as COMP or COMPUTATIONAL). 

Do not define numeric data fields of the record area with a 
USAGE specified as COMPUTATIONAL-3, COMP-3, 
COMPUTATIONAL-4, or COMP-4 unless data is being trans- 
ferred over a BSCA line using Text Transparency. 



DEFINING THE RECORD AREA AND PARAMETER LIST 

Before your COBOL program can perform communications 
operations, you must define one or more record areas and 
parameter lists. 
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Many COBOL application programs require that the same 
record areas be used for records with different formats. By 
defining each record area at the 01 level, you can redefine 
the record area with complete flexibility, using REDEFINES 
clause. (If you define record areas at another level, you 
must ensure that lengths are identical on any redefinition.) 
Because you must define the record area in the WORKING- 
STORAGE SECTION of the DATA DIVISION, rather than 
the FILE SECTION, you can assign a value to fields in the 
record area when you initially define the record area (though 
only in the original definition, when using the REDEFINES 
clause). 

Example: Figure 4-1 shows how to define a record area 
whose record may be in either of two formats; 
REC-AREA-A-2 redefines REC-AREA-A-1. The symbolic 
terminal name field is initialized to blanks. 
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Figure 4-1. Defining a Record Area 
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Parameter List 



Return Code Values 



You must also define one or more parameter lists in the 
WORKING-STORAGE SECTION of your program's 
DATA DIVISION (see index entry parameter fist). The 
first four fields of the parameter list should be defined as 
two-byte binary (PIC S9(4), USAGE specified as 
COI\/IPUTATIONAL-4 or COMP-4) fields. Because the 
parameter list is defined in the WORKING-STORAGE 
SECTION of DATA DIVISION rather than the FILE 
SECTION, you can also specify initial values for these fields. 
The fields are, in the sequence they must be defined in the 
parameter list: 



The CCP ignores the contents of the return code field of 
the parameter list at the beginning of a communications 
operation. At the completion of each operation, the CCP 
places a binary value in this field indicating the status of 
the operation. This value indicates: 

• The operation completed normally (value of zero) for 
nonchained operations; value of 14 for task chained 
operations) 

• The operation resulted in an I/O error (negative value) 



1. Return code field. 

2. Operation code and modifier field. 

3. Field used jointly for output data length, actual 
input data length, count of outstanding Invite Inputs, 
and attributes identifier. 

4. Maximum input data length field. 

These fields are the only fields you reference in your appli- 
cation program. The remaining four fields of the parameter 
list are not referenced directly by your COBOL program. 
However, they must be defined because space must be 
reserved for them. You can define them simply by specifying 
FILLER with a PICTURE of X(8). Your program should 
never initialize or set these fields. 

Example: Figure 4-2 shows how to define a parameter list 
in a COBOL program. The operation field is initialized to 
2 for a PUT operation. The output data length field is 
initialized to 48. This value might be the length of the first 
output message. The maximum input data length is initialized 
to 60. This value might be the total length of the data 
portion of a record area used with this parameter list. 



• The operation resulted in an exceptional condition 
(positive value) 



The CCP places this value in the return code field of the 
parameter list before returning to the COBOL program. The 
COBOL program must check the return code value upon the 
completion of each operation. Specific return code values 
and their meanings are given in Appendix E. Return Codes. 



Operation Code Values 

For each communications operation, you must set the 
operation code field of a parameter list to a value which 
indicates the specific operation being requested. You must 
set this value within your COBOL program. This field can 
be set by initializing the field in the definition of the 
parameter list or by moving an appropriate value into the 
operation code field during execution (see Setting Fields in 
tfie Parameter List later in this chapter). 

The CCP does not change this field during the communica- 
tions operation; the contents of the field are the same after 
completion of the operation as they were at the beginning 
of the operation. See Chapter 2: Standard Application 
Program Interface to the CCP for descriptions of the valid 
operation. Appendix D: Operation Codes summarizes the 
operation code values. 
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Figure 4-2. Oefining a Parameter List 



SETTING THE CONTENTS OF THE PARAMETER LIST 
AND RECORD AREA 

You must set the contents of the following areas before 
performing a communications operation in COBOL: 

1. Parameter list fields, if different from the last 
operation. 



Setting Fields in the Parameter List 

You reference four parameter fields within your COBOL 
program: 

• Return Code field. 

• Operation Code field. 



Symbolic terminal name in the first six positions of 
the record area. (This can be omitted if a terminal 
name is not required for the operation or if the 
name is the same as in the previous operation.) 

Output data in the data portion of the record area 
if the operation is an output operation. 



• Field used jointly for output length, effective input length, 
count of outstanding Invite Inputs, and attributes identifier. 

• Maximum input length field. 

You need set only the operation code and the Maximum Input 
Length field for input operations. For output operations, you 
must set the operation code and the Output Length field. 
For an Acquire Terminal operation, you must set the opera- 
tion code and, if this Acquire Terminal also sets the terminal 
attributes, the Attributes Identifier field. You need never set 
the return code field; it is used only by the CCP to return 
information about the operation to your COBOL program. 
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Operation Code 

Whenever a communications operation is issued, tliis field 
must contain a value indicating the operation to be performed. 
You can set this field when you define it in the WORKING- 
STORAGE SECTION of the DATA DIVISION by specifying 
a VALUE clause: 

05 PL-OPC PIC S9(4) COMP-4 VALUE 4. 



You can also set this field with a MOVE statement in the 
PROCEDURE DIVISION of your COBOL program. You 
can move either a numeric literal or a named numeric value 
into the operation code field of a parameter list you defined. 
In the following example, the numeric literal 4 (Accept 
Input operation) is moved into the operation code field 
PL-OPC: 
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The following example sets the Operation Code field by 
moving the named numeric field, ACPTIN, into it. ACPTIN 
is defined with the value 4. 



SEQUENC 


= hI i 
~ ^1 A B 


COBOL STATEMENT 


(PAGE) SERU 
1 3 4 


^lS 


6 7a 12 16 50 iA 28 


32 36 40 44 48 


01 


"t ^ 




02 


jDAiAi_ni\(isioN. 




03 


f T__£ 




04 


JorkJw&-stora£e SBCriO 


t 


OB 


77^ ACPTIN PIC S'fCH) 


CA'^fc'i y^LUE 4. 


06 


1 "^ 




07 


_t ±r_ _ F__ _:_:: _ 




08 


01 PAR^-LIST. 




09 


:t::±::]::::_: :::~" " 




10 


X ^S PL-QPC PIC ^ioy 


) COMP-^. 


1 1 


i I ' 




1 2 


1 ) 




1 3 


L^PfiOqlDURE DIVISION. 




1 4 


4- T '^ 




1 S 


I 1 




1 6 


_\_ VIOVE ACPIIN TO PL- 


a^. 


1 7 






1 8 






1 9 


1 1 




20 


; T 
1 1 





The CCP never modifies the value in the Operation Code 
field. You do not need to reset the field if the operation 
to be performed is the same as the last operation using this 
parameter list. 

For more information on the valid operations, see the 
chapter Standard >l/3p//cafton Interface to the CCP. 
Appendix D: Operation Codes summarizes the operations 
and operation code values. 



The first two values you must set; the third and fourth are 
returned values set by the CCP for certain operations. 

You can set this field when you define it in the 
WORKING-STORAGE SECTION of the DATA DIVISION 
by means of a VALUE clause, or in the PROCEDURE 
DIVISION by specifying a (WOVE statement, just as you 
set the operation code field. You can move either a 
numeric literal or a named numeric value into the field. 



Output Length/Attributes Identifier/Count of Outstanding 
Invite Inputs/Effective Input Lengtfi 

The third field of the parameter list can contain one of four 
different values depending on the type of operation: 

• Output Length 

• Attributes Identifier 

• Count of Outstanding Invite Inputs 

• Effective Input Length 



Output Lengttt: For task chaining and output operations, 
you must place into this field the length of the data you 
wish to write from the record area in your program. This 
length does not include the six positions for the program 
name or the symbolic terminal name. The output opera- 
tions you must set a data length for are: 

• Put 

• Put-No-Wait 

• Put-Then-Get 

• Chain Task Request 
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You must reset this value if tiie output data length differs 
from the last operation using this parameter list or if the 
field was modified by the CCP. This field is modified by 
the CCP for the following operations: 

• Get 

• Put-Then-Get 

• Accept Input 

• Get Terminal Attributes 

• Acquire Terminal 

• Release Terminal 



Attributes Identifier: If your operation code specifies an 
Acquire Terminal operation which sets the attributes of 
the terminal to be acquired, you must place into this field 
the identifier of the attributes set. This numeric value 
must correspond to the number you assigned to the desired 
set of attributes in an Assignment run. 



Effective Input Length: You do not need to set this 
value. For each input operation, the CCP places the actual 
length of the input data passed to your COBOL program in 
this field before it returns control to your program. This 
is the length of the data only, it does not include the 
length of the terminal name. 



Count of Outstanding Invite Inputs: On a Release Terminal 
operation and on any input operation that results in a 08 
return code (terminal entered data mode escape and issued a 
/RELEASE command), this field is set by the CCP to the 
number of Invite Input operations still outstanding. If this 
is a multiple requesting terminal (MRT) program, this 
number includes not only the Invite Inputs you have issued 
that have not yet been satisfied by an Accept Input operation, 
but also the number of additional terminals that have re- 
quested your program but are not yet being served by your 
program. 



Maximum Input Data Lengtfi 

For each operation involving input data, you must enter a 
numeric value into the fourth field of the parameter list, 
indicating the maximum amount of input data you expect 
to receive. This value must be greater than zero and no 



larger than the size of the data portion of the record area 
with which this parameter list is used. The value does not 
include the six positions at the beginning of the record area 
for the name field. The input operations for which you 
must place a value in this field are: 

• Get 

• Invite Input 

• Accept Input 

• Put-Then-Get 

• Get Terminal Attributes 

• Stop Invite Input (in case input cannot be stopped) 

You can set the value of this field either when you define 
it in the WORKING-STORAGE SECTION of the DATA 
DIVISION or by means of a MOVE statement in the 
PROCEDURE DIVISION. The CCP never modifies the 
value in this field. Therefore, you do not need to reset it 
unless the maximum input length for this operation is 
different from the value set in this field the last time this 
parameter list was used. However, if this parameter list 
is used with more than one record area, you may need to 
alter this value during execution of your COBOL program. 

Example of Setting Fields in tfie Parameter List 

Figure 4-3 shows how you can set the operation, output 
data length, and maximum input data length fields of a 
parameter list. Each operation code value is assigned a 
name. These names are then used on a MOVE statement 
that moves the named numeric values into the operation 
field of the parameter list. The output data length and 
maximum input data length fields are set by moving 
literals Into them. 

Setting the Record Area 

The record area consists of a six-position name field and a 
data area. For an operation with a terminal, except for 
Accept Input and Shutdown Inquiry operations, you must 
place the symbolic name of the terminal to be involved 
with the operation in the name field. For a Chain Task 
Request, you must place the name of the requested program 
in the name field. You must also provide the data to be 
transmitted in the data portion of the record area when an 
output operation is to be performed. 
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Figure 4-3. Setting Fields in the Parameter List 
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Name Field 



Example of Setting the Record Area 



For an operation involving a terminal, the terminal name 
you place in a record area must have been assigned to your 
program. You may also identify the requesting terminal by 
using six blanks as the terminal name if your program is 
not a multiple requesting terminal (MRT) program (see 
index entry). See Chapter 2: Standard Application Pro- 
gram Interface to the CCP for more information on the 
valid terminal names. 

For a Chain Task Request operation, you must provide the 
name of the program to be loaded in the name field. 

You may set the name when you define the record area in 
the WORKING-STORAGE SECTION of the DATA 
DIVISION, or by means of a MOVE statement in the 
PROCEDURE DIVISION. You do not need to reset the 
terminal name if the terminal to be used is the same that 
was named the last time the record area was used, unless 
the name was modified by CCP. CCP modifies the name 
field of the record area in the following situations: 

• Upon completion of an Accept Input operation, CCP 
sets the name field to the name of the program or ter- 
minal whose data is placed in the record area. 

• Upon completion of any operation using the name 
field that was set to blanks, CCP sets the name field to 
the name of the requesting program or terminal. 



Figure 4-4 shows how you can define and set the record 
area when it is used for both input and output operations. 
Assume the CCP has set the terminal name and data area as 
the result of an Accept Input operation. The COBOL program 
then resets the data area for an output operation by moving 
the message "TRY AGAIN INV DATA" to the data portion 
of the record area. This message overlays the input data 
transmitted to the record area by the Accept Input operation. 
Later in the program, the terminal name is reset to a named 
alphanumeric value. 



CALLING THE COMMUNICATIONS SERVICE 
SUBROUTINE 

Since COBOL does not include special statement types 
for terminal I/O operations and other communications 
services, the CCP provides a communications service sub- 
routine, 'CCPCIO,' that converts the COBOL program's 
communications requests into a standard request to the 
CCP communication facilities. The functions performed by 
CCPCIO for the COBOL program are: 

• Loads index register 2 with the address of the program's 
parameter list. 

• Places the address of the record area into the program's 
parameter list. 



Output Data Area 

If the operation to be performed is an output operation, 
you must provide the data to be transmitted in the data 
portion of the record area. You do not need to provide 
data in the record area for operations other than output 
operations because either the data area is not used or data 
is provided to your program by CCP. Data provided to 
your program by CCP overlays the information previously 
in the data portion of the data area. For example, the 
input data transmitted to your program by the Get part 
of the Put-Then-Get operation overlays the output data 
transmitted from your program by the Put part of the 
operation. See the C/japfer^.' Standard Application 
Program Interface to the CCP for more information on 
transferring data. 

Note: If the message to be sent is shorter than the total 
length of the data area, you need not clear the excess 
area to blanks. 



• Branches to the CCP. 

The CCPCIO subroutine must be linkage edited with the 
COBOL application program. See Chapter 9. Program 
Preparation. 

After you have set the required parameter list fields and 
the terminal name in the record area, and have prepared 
any output data, you are ready to request the CCP to 
perform the operation specified in the parameter list. 
You make this request by issuing a CALL statement 
specifying 'CCPCIO'. The names of your parameter list 
and record area must be passed as arguments to the sub- 
routine. 

The format of the CALL statement is as follows: 



CALL 'CCPCIO' USING parameter-list-name, record-area-name. 
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Figure 4-4. Setting the Record Area 
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The CALL statement appears in the PROCEDURE 
DIVISION of your COBOL program. 

In the following example, the name of the parameter list 
is PARM-LIST. The name of the record area is INPUT- 
OUTPUT-AREA. 

CALL 'CCPCIO' USING PARM-LIST, INPUT-OUTPUT-AREA. 



Control returns to your COBOL program at the statement 
immediately following the CALL statement. When the 
return occurs, the following actions have already taken 
place: 

• For output operations, any output data has been 
accepted by the CCP and, depending upon the output 
operation specified, has been received by the terminal. 
In any case, the record area is now free for you to use 
again. 

• For input operations, any input data which was to be 
received in the record area is now in the record area, 
unless an error condition or one of several exception 
conditions occurred. 

• For Accept Input operations, the name of the program 
or the symbolic terminal name of the terminal that pro- 
vided the data in the record area has been set in the 
first six positions of the record area. 

• For successful task chain operations, the requested pro- 
gram is placed on the program request input queue when 
control is returned to the requesting program. 

• For operations that validly specified a blank terminal 
name, the symbolic terminal name of the requesting 
terminal has been set in the first six positions of the 
record area. 

• For all operations, the return code field in your parameter 
list has been set indicating the result of the operation. 

• For input operations, the actual input data length has 
been set in your parameter list. 

• For Release Terminal operations or for input operations 
where the terminal has released itself from the program, 
the count of outstanding Invite Input operations has 
been set in your parameter list. 



EXAMINING RETURNED INFORMATION 

After control has returned to your COBOL program from 
the communications service subroutine, you should examine 
returned information supplied by the CCP, including one 
or more of the following; 

• The return code 

• The symbolic terminal name (if it was set by the CCP) 
or the name of the program that issued the Chain Task 
Request operation 

• The count of outstanding Invite Inputs, if a Release 
Terminal operation was performed, or if the return 
code from an input operation indicates the terminal 
was released 

• The actual input data length, if an input operation was 
successfully performed 

• The input data, if an input operation was performed 



Return Code 

The CCP always provides a return code after an operation. 
You should never assume that an operation is successful; 
you should always check the return code. In certain cases, 
you will find that no data transfer has occurred. See 
Appendix E for the meanings of specific return codes and 
see Programming Examples, later in this chapter, for 
examples of checking return codes. 

You may wish to perform certain operations in your COBOL 
program depending upon the return code value set by the 
CCP. The example in Figure 4-5 assumes that you want to 
branch to one of several procedure names depending upon 
the value of the return code. The program examines the 
return code value for the following conditions: 

• The operation was successful and no exceptions occurred 

• An EOJ was received on a successful operation, or on 
an operation in which data was truncated. 

• Some other exception condition occurred. 

• An I/O error occurred. 

Assume that all data names have been defined earlier in 
this program. Note the use of comments in the example. 
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Figure 4-5. Examining Return Code Values 
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Figure 4-6. Saving the Symbolic Terminal Name 
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Examininci a Returned Name 

On certain operations, tiie CCP returns the symbolic terminal 
name to your program's record area. You may need to 
examine this name. 

For example, you may need to examine the name of the 
terminal that provided the input data. You can then com- 
pare the terminal name in the record area with a saved 
terminal name to associate new data with data previously 
received from this terminal. You can save a terminal name 
for later comparison by specifying the terminal name field 
of the record area in a MOVE statement. The field to which 
the terminal name is moved must be defined with a 
PICTURE of X(6). 

The example in Figure 4-6 saves the terminal name the 
CCP sets in the name field of the record area, TERM- 
NAME-A, by moving it to the field SAV-TERM-NAME. 
SAV-TERM-NAME is the name field in a table of saved 
values. 

If a program can be requested from both a terminal and 
another program using the Chain Task Request operation, 
you may want to determine how the program was re- 
quested. This can be accomplished by checking for a 14 
return code, indicating a Chain Task Request operation. 
This information is useful if a program communicates with 
the requestor since your program cannot communicate 
with a chain task requesting program. 



Referencing Saved Information 

In some of your COBOL programs, you may need to save the 
information entered on the terminals and reference it later 
in your program. For example, if your program receives 
data from several different terminals, you may need to 
associate new data entered on a terminal with data previously 
entered on the same terminal. To do this, you must save 
the significant data received from every terminal you are 
using and identify that saved data with the name of the 
terminal from which it was received. You can then associate 
new data with the saved data by comparing the terminal 
name set by the CCP in the record area with the saved 
terminal names. 

One way you can save information received from each 
terminal is to define a table of group items. Specify the 
number of terminals from which information must be 
saved as the integer in the group item's OCCURS clause. 
For example, if information must be saved from five termi- 
nals, specify that the group item OCCURS 5 TIMES. Each 
group item consists of a set of elementary items, one of 
which is the terminal name. Upon completion of an Accept 



Input operation, you can then search the table of saved 
information until you find the saved terminal name that 
corresponds to the name of the terminal which just trans- 
mitted data to your program. Once you have found the 
table entry you are searching for, you can address any 
field of the save information by indexing that field name 
with the index name. 

Figure 4-7 shows how to set up a table for saved information 
and reference the saved information in your COBOL program. 
By searching the table for the saved terminal names that 
corresponds to the terminal name in the record area, you 
can associate the new data with the data that was saved. 



Effective Input Data Length 

If the communications service subroutine requested an 
operation which transferred data to your program (Get, 
Accept Input, Get Attributes, Put-Then-Get, or Stop Invite 
Input), the CCP also places the effective length of the 
input data into the parameter list. Because this is the length 
of the data that was actually received by your program, you 
may wish to use this length to control subscripted or indexed 
operations in your program. For example, you may need to 
scan the input data for a specific character or string of 
characters. To do this you must know the length of the 
input data you must scan. 



Count of Outstanding Invite Inputs 

On a Release Terminal operation or on an input operation 
where the return code indicates that the terminal released 
itself from your program, the count of outstanding Invite 
Input operations is returned to your program. You may use 
this number to determine whether your program has any 
further terminals to serve or whether it can go to end of job. 



Input Data 

If the operation requested by your program is an input 
operation that transfers data, the CCP places the input data 
received by your program in the seventh and succeeding 
positions of your record area before it returns control to 
your COBOL program. Any excess positions, beyond the 
end of the actual data received, are filled with blanks by 
the CCP, up to the maximum Input length you specified 
for the operation. The data is then available for you to 
use in your program. 
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Figure 4-7. Referencing Saved Information 
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USING THE SYSTEM OPERATOR CONSOLE 



COBOL PROGRAMMING CONSIDERATIONS 



If you wish to communicate with the system operator 
through either the 5471 Printer/Keyboard (IVIodels 10 and 
12) or CRT/Keyboard (IVIodel 15), you must specify opera- 
tions as though the device is a remote terminal. You cannot 
address the system operator's console by either the 
DISPLAY .... UPON console-name or the ACCEPT.. ..FROIVI 
console-name statement. Instead of using these statements, 
you must specify either a Put or Put-Then-Get operation to 
a terminal named CONSOL. CONSOL is the only name 
that can be assigned to the system operator console. 

Your program can communicate with the system operator's 
console at any time. To receive data from the console, 
you must issue a Put-Then-Get operation, which: 

1 . Transmits a message to the system operator; and 

2. Accepts a reply from the system operator. 

Control is not returned to your program until the system 
operator has transmitted input data to your program. 

The operations that can be issued to the console are: 

• Put 

• Put-Then-Get 

• Get Attributes 

The console is available at all times to communicate with 
any program or to enter system operator commands. 
However, if the console requests a program, it cannot request 
another program until the first program is initiated by the 
CCP. It is not necessary, nor is it valid, to issue an Acquire 
Terminal operation to the console in order to communicate 
with it. 

Example: The example in Figure 4-8 uses the system 
operator console as the terminal for a Put-Then-Get 
operation to notify the system operator of an I/O error. 



When writing your COBOL program, remember: 

• (IVIodel 10 and Model 12) You cannot use either the 
ACCEPT or the DISPLAY statements when addressing 
the CONSOL. 

• You cannot use the Checkpoint/Restart facility of Disk 
Data Management. Therefore, your COBOL program 
cannot specify the RERUN statement. 

• (Model 10 and Model 12 CCP) You must not issue a 
STOP literal statement. Programs running under the 
CCP are not permitted to issue halts. 

• You should not use the APPLY CORE-INDEX clause in 
your COBOL program to create an in-storage index 
(master index) for randomly processed indexed files. The 
index is built as a result of the MSTRINDX keyword of 
the DISKFILE assignment statement (^ee CCP System 
Reference); therefore, if you use an APPLY CORE- 
INDEX clause, you will only add unnecessary storage 
size to your program. 

• (Model 15) You cannot use the COBOL TRACE option 
under CCP. 

• The DISPLAY statement cannot be used for a printer. 



3270 DISPLAY FORMAT FACILITY 

You can use the 3270 Display Format Facility (DFF) of the 
CCP to aid you in formatting and using the 3270 display. 
Chapter 8: 3270 Display Format Facility describes the 
programming requirements that are unique to using 3270 
DFF, including the unique 3270 DFF operations, additional 
information that must be placed in the record area for 
certain operations, field types that are unique to the 3270, 
and other information. 

See Chapter 8: 3270 Display Format Facility for an example 
of a COBOL program that uses the DFF to support a single 
requesting 3270 terminal. 
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Figure 4-8. Using the Console 
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PROGRAMMING EXAMPLES 



Two programming examples are explained in this section: 



Example 1 — A COBOL program that supports a single 
requesting 3270 without using the Display Format Facility. 



Example 2 - A COBOL program that supports multiple 
requesting terminals. 

SeeChapter 8 for an example of a COBOL program that 
uses the 3270 Display Format Facility to support a single 
requesting 3270 terminal. 

Example 1 

Figures 4-9, 4-10, and 4-1 1 show the flowcharts, messages, 
and listing for a sample single requesting terminal (SRT) 
COBOL program. This program transmits two messages to 
a 3270 Model 1 Display System (480 character screen). 
The first message from the program requests the terminal 
operator to enter a room number. The program uses the 
room number as the relative record number to access a 
disk file whose records contain guest and rate information 
about the room. This information is then formatted and 
displayed as the second message transmitted to the 3270 
terminal. Figure 4-9 also shows how these messages appear 
on the 3270 terminal. 

Because this program is a single requesting terminal (SRT) 
program (see index entry) without any program-selected 
terminals, it can receive data from and transmit data to 
only one 3270 terminal. However, multiple copies of this 
program could be in main storage at the same time, each 
communicating with a different 3270 Display System. (If 
multiple copies are in core at the same time, the disk file 
must be specified as sharable during the Assignment stage - 
see index entry disk file sharing.) 



Formatting the Messages for the 3270 Display 

Because this sample program does not use the Display 
Format Facility, this sample program must set all formatting 
control characters for the 3270 display screen into the 
data portion of the record area and transmit them as part 
of the messages to be displayed. Figure 4-10 shows the 
messages and the 3270 control characters as they are trans- 
mitted to the 3270 terminal. You can find the meanings 
of each of the 3270 screen format characters shown in 
Figure 4-10 in the publication IBM 3270 Information Display 
System Component Description , GA27-3004. 



The printable control characters are set by defining them 
as part of the message in the VALUE clauses of the record 
area definition. Blanks are left in the VALUE clauses 
where the unprintable format characters will be set by 
MOVE statements later in the program. 

The unprintable format characters (hexadecimal values 
that have no corresponding printable character in 96-column 
card code) are set by first coding the hexadecimal format 
characters as decimal values and initializing fields to these 
values (PSEUDO and PSEUD02). The fields assigned these 
decimal values are then redefined so that the COBOL program 
can access these values, which are stored in hexadecimal 
internally, as the format characters. These redefined fields 
(INSERT-CURSOR, START-FIELD, SET-BUFFER-ADDR, 
and ESCAPE) are then moved into the appropriate position 
in the message. The notes to the right of the listing in 
Figure 4-1 1 explain the statements used by this program 
to format the 3270 display screen. You will also find 
the comments in the listing helpful. 



Notes Concerning this Sample Program 

• Message Mode was defined during the Assignment Stage 
for the 3270 terminal used by this program. (See 
TERMATTR statement in CCP System Reference Man- 
ual.) This eliminates the need to do repetitive input 
operations until EOT is received. 

• To run this program using a terminal other than the 3270, 
you must remove all coding dependent on the 3270. 
This includes all screen formatting specifications and 
3270 screen control characters within the data. 

• This program will not accept data with the program 
request. 

• Two different lengths are used for the output length 
field of the parameter list because the two messages 
transmitted by this sample program have different 
length. 

• This program specifies a PUT operation and a GET 
operation using six blanks as the terminal name. The 
CCP places the name of the 3270 terminal being used 
in the terminal name field of the record area after the 
first PUT operation is performed. 
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• To keep this sample program simple, return code 
checking is kept to a minimum. You may want to do 
more return code checking in your application programs. 
For example, when you issue Accept Input you should 
check for the Shutdown Requested return code (04). 
Also, if data mode escape is allowed in the CCP system, 
programis should check for return code 08 (terminal has 
released itself from the program). It is recommended 
that each installation design its own return code checking 
and console communication routines so that a standard 

is established that is satisfactory to the installation and 
can be used by all application programs. 

• This program does not check the length of the input 
data because the terminal operator is requested to enter 
a three-digit room number. If less than three digits are 
entered, the program branches to the EXIT-DONE pro- 
cedure and the program is canceled. However, you may 
want to check the input data length in your application 
programs. 



• Since there are only two different screen formats used 
by this program, they are both contained within the 
program. For more complete applications, you might 
store the screen formats on disk and read them when 
they are needed by your program. 

• You could also use the Get Attributes operation in this 
program. If you do not know whether the 3270 Model 1 
or the 3270 Model 2 will request the program, you can 
issue a Get Attributes operation to find out which type 
of terminal requested the program. 

• If this program were coded and specified as a multiple 
requesting terminal (MRT) program with a MRTMAX=1 
keyword on the PROGRAM assignment statement (see 
CCP System Reference Manual), multiple copies of the 
program would not be allowed in main storage at the 
same time. As the program is written, multiple copies 
could be in main storage at the same time and the disk 
file must be specified as sharable (FILES keyword of 
PROGRAM assignment statement). 
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START 



1 . Set up parameter list to Put-No-Wait 
a message. 

2. Format screen for 3270IVI1. 

3. Put-No-Wait the message. 
(Enter Room #.) 



ENTER ROOM # 



1. Set up parameter list for Get. 

2. Get message (Room #). 




No 



No 



Read disk record. (Room #is relative 
record number.) 



1 . Move disk data: Room #, Rate, 
Name, Address. 

2. Format screen for 3270M1. 

3. Set up parameter list for Put-No-Wait 
message. 

4. Put-No-Wait the message. (Room#, 
Rate, Name, Address). 



ENTER ROOM #009 



ENTER ROOM #009 
ROOM # - 009 
RATE -$18.50 
NAME -JOHN DOE 
ADDR - 114 5TH AVESW 
ADDR-STURGIS, MINN. 55' 



01 



END OF JOB 



Figure 4-9. Program Logic of Example 1 (COBOL SRT Program) 
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First Mes!iage 



14 15 16 1/ 18 19 20 21 22 23 24 25 2S 27 28 29 30 31 3? 33 3-1 35 36 37 38 39 40 




Second Message 
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BA- 
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XXX 
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BATE 
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XX 



L-BA 
— SBA 
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ffli||MMi 



SBA— I 
BA - 



xy x>(>(>!>^xx: xyxKKx xxkx; 
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95 ■ 



-»-124 



SBA- 
BA- 



ADbR 



X>< 



XX 



XX 



XVXX 



xlxxx 



xx;< 



SF 


- Start Field 


CC 


— Command Code 


ATT 


— Attribute Character 


WCC 


- Write Control Character 


IC 


— Insert Cursor 


SBA 


- Set Buffer Address 


X 


— Data Character 


BA 


- Buffer Address of first character 


EC 


—Escape Character 




position in the field 



Figure 4-10. Message Formats for Example 1 (COBOL SRT Program) 
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IBM SYSTEn/3 AMERICAN NATIONAL STANDARD COBOL 



STNO -A...B. 



COBOL 



SOURCE STATEMENTS IDENTFCN SEO/ND S 



4 
5 
6 
7 

a 

9 
10 



15 
16 
17 
18 
19 
20 
21 
22 



23 



24 
25 
26 
27 
28 
29 
30 
31 



PROCESS HAP, LIST, 600ECK 

IDENTIFICATION DIVISION. 

PROGRAM-ID. SRCOBl. 

REMARKS. THIS IS A SAMPLE SINGLE REQUESTING TERMINAL PROGRAM 
DESIGNED TO RUN UNDER CCP. A 3 DIGIT ROOM NUMBER 
WHOSE VALUE IS BETWEEN 1 AND 10 IS ENTERED FROM A 3270 
TERMINAL. THE ROOM NUMBER IS RECEIVED BY THIS PROGRAM, 
AND IS USED TO ACCESS A FILE WHOSE RECORDS CONTAIN 
GUEST AND RATE INFORMATION ABOUT THE ROOM. THE PROGRAM 
RECEIVES THIS INFORMATION FROM THE DISK AND FORMATS IT 
AND THEN SENDS IT BACK TO THE 3270 TO BE DISPLAYED. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-S3. 

OBJECT-COMPUTER. IBM-S3. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT GUEST-FILE ASSIGN TO DA-5444-R-GSTFILE 
ACCESS MODE IS RANDOM 
ACTUAL KEY IS GUEST-KEY. 

DATA DIVISION. 

FILE SECTION. 
^t**************************************************************** 

* THIS IS THE RECORD THAT CONTAINS THE GUEST AND RATE * 

* INFORMATION FROM THE DISK FILE. * 
ft**************************************************************** 

FD GUEST-FILE LABEL RECORDS ARE STANDARD 
DATA RECORD IS GUEST-REC- 
01 GUEST-REC. 

02 RPG-DATA PIC X. 

02 ROOM-NMBR PIC X(3t. 

02 ROOM-RATE PIC 99V99. 

02 GUEST-NAME PIC X<20). 

02 ADDR-HOME PIC X(20l. 

02 ADOR-WORK PIC X<20). 

02 FILLER PIC X(2). 
WORKING-STORAGE SECTION. 

* INDEPENDENT FIELDS AND CONSTANTS AND KEYS * 
77 GUEST-KEY PIC S9(7) COMP. 

* THESE ARE SPECIAL HEX-DECIMAL CHARACTERS USED FOR FORMATTING * 

* THE 3270 SCREEN * 

01 PSEUDO PIC 9999 CQMP-4 VALUE 4893. A 
01 IC-SF REDEFINES PSEUDO. , ^" 

05 INSERT-CURSOR PIC X. 

05 START-FIELD PIC X. , -^ 

01 PSEUD02 PIC 9999 COMP-4 VALUE 4391 . Kl 

01 SBA-ESC REDEFINES PSEU002.J 

05 SET-BUFFER-ADDR PIC X. [ Q 



\& 



^^ Initialize PSEUDO using decimal values 
corresponding to the hexadecimal values 
for Insert Cursor and Start Field. These 
values will be internally represented in 
binary: 

Insert Cursor = X'13' 

Start Field = X'1D' 

X'131D' = decimal 4893 {see Note) 

^ Redefine PSEUDO to make the resulting 
two hexadecimal values available to be 
manipulated individually in the program. 

^^ Initialize PSEUD02 using decimal values 
corresponding to the hexadecimal values 
for Set Buffer Address and Escape Char- 
acter. These values will be internally 
represented in binary: 

Set Buffer Address = X'll' 

Escape Character = X'27' 

X'1 127' = decimal 4391 (see Note) 

Qi Redefine PSEUD02 to make the resulting 
two hexadecimal values available to be 
manipulated individually in the program. 

Note: The hexadecimal value to be convert- 
ed to decimal must never exceed X'270F', 
or the resulting decimal value will exceed 
four digits and will require a three-byte 
field. If this occurs, rearrange the order of 
the hexadecimal fields to see if it results in 
a lower decimal value. If it does not, use a 
three-byte field and place a X'OO' filler in 
the first byte. 



05 ESCAPE 



PIC X. 



Figure 4-1 1 (Part 1 of 3). Example 1 ~ COBOL SRT Program 
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32 
33 
34 
35 
36 
37 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 



67 
68 
69 



70 
71 
72 
73 
74 
75 



76 



* INPUT-OUTPUT PARAMETER LIST * 

01 PARM-LIST. 

PIC S9(4I COMP-4. 
PIC S9(4I COHP-4 VALUE 54. 
PIC S9(4) COMP-4 VALUE 26. 
COMP-4 VALUE 11. 



05 PL-RTC 
05 PL-OPC 
05 PL-OUTL 
05 PL-INL 
05 FILLER 



PIC S9(4) 
PIC X(8). 



10 CHRS2 
10 NAME 



* THIS IS THE INPUT/OUTPUT AREA • 
************************************************** *************Mijl 

01 INPUT-OUTPUT-AREA. 

05 I-O-TERM PIC X(6» VALUE SPACES. 
05 I-O-AREA. 

10 HSGl PIC X(21) VALUE ' 56 

10 ROOM-NUM PIC X(3) VALUE SPACES. 

10 CHRSl PIC X(5» VALUE • 0- »'. 
PIC 99.99. 
PIC X(10) VALUE • ABNAME 

10 NAM-CHR PIC XI20> VALUE SPACES. 

10 AODRl PIC X(10) VALUE • B-ADOR 

10 AOl-CHR PIC XI20) VALUE SPACES. 

10 A00R2 PIC XdOl VALUE • CHADDR 

10 AD2-CHR PIC X(20) VALUE SPACES. 
05 I-0-CHARS REDEFINES I-O-AREA. ■> 

10 1-O-CHAR PIC X OCCURS 124 INDEXED BY INDX./* 
05 I-0-AREA2 REDEFINES I-O-AREA.") 

10 ROOM PIC X(IS). 

10 ROOM-NM PIC XI3). 

10 RATE PIC XIBI. 

10 FILLER PIC X(9B). 
05 INPUT-AREA REDEFINES I-O-AREA. 

10 DEVICE PIC X. 

10 CNTRL-U PIC X. 

10 AID PIC X. 

10 CRS-ADO PIC X(2I. 

10 SBA PIC X. 

10 SBA-ADO PIC X(2). 

10 RM-NUM PIC X13I. 

10 FILLER PIC X<113l. 

* NOW BEGIN EXECUTION BY OPENING THE DIRECT ACCESS FILE * 
****************************************************************** 

PROCEDURE DIVISION. 
OPEN-THE-FILE. 

OPEN INPUT GUEST-FILE. 

* INSERT THE HEXADECIMAL CONTROL CHARACTERS INTO DATA STREAM * 

FIRST-CHARS. 

MOVE ESCAPE TO I-O-CHAR(l). 

HOVE SET-BUFFER-ADOR TO I-0-CHAR(4). 
NEXT-CHARS. 

HOVE START-FIELD TO I-0-CHAR( 19) . 

MOVE INSERT-CURSOR TO l-0-CHAR(21 t- 

* THIS FIELD IS DEFINED TO PREVENT DATA FROM BEING ENTERED * 

* BEYOND THIS POSITION ON THE SCREEN. ♦ 

MOVE START-FIELD TO l-0-CHAR(25) . 

* DO PUT MESSAGE NO WAIT OPERATION TO 3270 TERMINAL » 

* REQUESTING THE ROOM NUMBER BE ENTERED * 




Return Code Field 
Operation Code Field 
, Output Length Field 
Maximum Input Length Field 
Required CCP Work Area 

.Terminal Name Field 

Data area for Messages: Initialize the con- 
tents of message fields to be displayed and 
of any printable 3270 formatting charac- 
ters. Leave blanks for any unprintable 3270 
control characters (characters that cannot 
be represented by a character in the COBOL 
character set). The blank fields are set by 
MOVE statements later in the program. 
The first half of this definition is used for 
the first message; the second half is used 
only for the second message. The first part 
of the second message will be added later 
by overlaying the first message. 

Redefine the data area with an index so 
each position in the area can be referenced 
separately. 

Redefine the data area to set up the first 
part of the second message. 

Redefine data area for Get operation. 



Move the hexadecimal values for the remain- 
ing 3270 formatting control characters to 
appropriate positions in the data area. These 
characters are unprintable. 



Figure 4-11 (Part 2 of 3). Example 1 - COBOL SRT Program 
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77 



78 
79 



84 
85 
87 
89 



92 
93 
94 
95 
96 
97 



98 

99 

100 

101 

102 



103 
104 



105 
106 
107 
108 



CALL 'CCPCIO' USING PARM-LIST, INPUT-OUTPUT-AREA. 
♦♦♦♦♦♦**♦***********♦♦*»******♦♦*******♦♦♦*♦♦**»*****»*♦*****♦♦*♦♦ 

* DO GET OPERATION FROM 3270 TERMINAL AND OBTAIN ROOM NUMBER » 
*******«**««*«****4i*****4i**«*****4i****4r«** ******** ***««*«*** ****•• 

MOVE I TO PL-OPC. 

CALL 'CCPCIO' USING PARM-LISTf INPUT-OUTPUT-AREA. 
t,m**************************************************************** 

* IF THE RETURN CODE IS NOT ZERO GO TO END OF JOB • 
»♦»♦♦♦♦♦♦**♦♦♦*♦»«♦**♦*******♦»*»**»♦♦**♦**♦♦♦♦♦*****»*♦♦******♦*♦ 

IF PL-RTC NOT = GO TO EXIT-DONE. 
**♦****»******♦*♦♦**♦*♦»»*♦♦»♦**♦***«*»»***»♦»*♦******♦*********** 

* CHECK TO SEE IF THE ENTER KEY HAS PRESSED, IF IT WAS NOT GO * 

* TO END OF JOB. * 
*♦**«♦♦»♦♦♦♦♦»**»♦♦»♦♦♦♦*»»*♦♦♦♦******»******♦*****♦**♦***»**♦♦*** 

IF I-Q-CHARI3) NOT = QUOTE GO TO EXIT-DONE. 
^i^t*************************************************************** 

* VALIDITY CHECK THE ROOM NUMBER IF ROOM NUMBER BAD GO TO END * 

* OF JOB * 

♦*♦*♦♦*♦«♦»♦»»♦»♦*»♦♦♦♦«♦♦♦♦♦♦**♦*♦**♦*♦*******♦♦♦♦******♦******♦* 

MOVE RM-NUM TO GUEST-KEY. 

IF GUEST-KEY LESS THAN 1 GO TO EXIT-DONE. 
IF GUEST-KEY GREATER THAN 10 GO TO EXIT-DONE. 
MOVE RM-NUM TO ROOM-NH. 
»♦»♦**♦**»♦♦♦♦♦***♦*♦*******»**»********♦♦♦♦***************»»*»»** 

* READ RECORD FROM DIRECT ACCESS FILE. THE ROOM NUMBER * 

* REPRESENTS THE RELATIVE POSITION OF THE RECORD IN THE FILE* 
♦*«**»*»*♦******♦**»*»»**»***»********♦**•********************♦*** 

READ GUEST-FILE INVALID KEY GO TO EXIT-DONE. 
/*»♦««*♦«*♦♦******♦*♦♦*♦*♦**•♦*«•♦•••♦•♦»»»***♦♦*♦*♦**•♦*♦*•*♦♦♦•♦ 

* MOVE THE ROOM NUMBER, RATE PER DAY, THE NAME AND ADDRESS OF * 

* THE GUEST INTO THE OUTPUT ARE* * 
»»*««»♦»♦♦♦♦*♦*♦♦♦»**♦»*»*»»••••*•♦♦•****•*•»••****♦♦»•♦♦•**»♦♦♦♦* 

MOVE ' IG YRDOM # - • TO ROOM. 
HOVE ' ASRATE • TO RATE. 
MOVE GUEST-MAME TO NAM-CHR. 
MOVE ROOM-RATE TO CHRS2. 
MOVE AODR-HOHE TO ADl-CHR. 
MOVE ADOR-WORK TO AD2-CHR. 
♦»«*»♦♦♦«♦»*»♦«♦♦»♦♦♦«♦♦*♦********♦**♦»**♦»**♦*♦♦»*♦♦*♦*♦***♦***** 

* INSERT THE HEXADECIMAL CONTROL CHARACTERS INTO DATA STREAM » 
♦*♦♦♦»♦♦♦♦♦«»♦»♦«♦**»♦«»♦***»****♦**•»**••*•♦**♦♦•*•*♦*♦**♦**♦*»** 

PERFORM FIRST-CHARS. 

MOVE SET-BUFFER-AOOR TO I-0-CHAR( 19) . 
MOVE SET-BUFFER-AOOR TO I-0-CHAR(3S). 
MOVE SET-BUFFER-ADOR TO I-O-CHAR ( 65) . 
MOVE SET-BUFFER-AODR TO I-0-CHARI95 ) . _ 
*♦**♦»»*»»*»♦*♦*♦***»♦*♦**»*♦»•*♦*♦*»♦»*♦*»♦»♦*•♦♦*♦*♦»»***•***♦** 

* SET UP PARAMETER LIST FOR A PUT MESSAGE NO MAIT » 
«»♦»»«♦♦«»♦»♦♦»»♦*»»»**»♦»****♦*♦»♦♦♦»♦♦♦»**♦*♦»•♦»***••»*«»♦*♦**» 

MOVE 54 TO Pt-OPC. 

MOVE 124 TO PL-OUTL. 
»»»<.♦**♦»♦**»**»*******»»*»♦»**♦*************♦***»♦♦♦**♦********** 
» 00 PUT MESSAGE NO WAIT OPERATION TO THE 3270 TERMINAL * 
»♦**♦*♦♦♦*♦*»»*»♦»*»**»*♦*******»***♦*******♦♦***♦**********•♦♦•*♦ 

CALL 'CCPCIO' USING PARM-LIST, INPUT-OUTPUT-AREA. 
EXIT-DONE. 

CLOSE GUEST-FILE. 

STOP RUN. 



Move the message, data, and printable 3270 
control characters for the first part of the 
second message into the data area of the 
record area, overlaying the first message. 

Move the hexadecimal values for the 3270 
formatting control characters that are not 
already set in the data area into the appro- 
priate positions of the data area. These are 
the unprintable control characters. 



Figure 4-11 (Part 3 of 3). Example 1 - COBOL SRT Program 
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Example 2 

Figures 4-12, 4-13, and 4-14 show the flowchart, input/ 
output messages, and listing for a sample COBOL multiple 
requesting terminal (MRT) program designed to run under 
the CCP. This program handles up to four MLTA re- 
questing terminals. The terminal operator enters a seven- 
digit numbe-r preceded by a -I-, -, or N. The CCP transmits 
this signed number to the COBOL program. The COBOL 
program: 

• Adds the number to the value in the accumulator field 
associated with the terminal that transmitted the data 
if the first position is + 

• Subtracts the number from the accumulator if the first 
position is - 

• Releases the terminal if the first position is N 



If a value was either added or subtracted, the new value 
accumulated for the terminal is inserted into the message 
CURRENT VAL = sxxxxxxxxxx ENTER DATA and the 
message is sent to the terminal. 

This sample program also checks for several error conditions 
and transmits the appropriate error message to the terminal. 

This sample program is not designed to show the most 
effective way of performing operations. Instead, it shows a 
variety of ways to do things. It uses a variety of operation 
codes that show how data can be associated with a terminal 
by defining a save area for the terminal names and accumu- 
lated data. It frequently checks return codes; but you can 
do even more return code checking if you wish. Data 
entered by the terminal operator must be fixed length. To 
allow variable length input fields, you could include a sub- 
routine in your program to check the effective input length 
returned in the parameter list and align the data correctly. 
This program communicates with the console in addition to 
the requesting terminals. 

The notes to the right of the listing in Figure 4-14 and 
the comments in the listing explain each section of the 
sample program. 
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A1 



( START j 



B1 



1 . Set up parameter 
list for Accept 
Input 

2. Accept Input 



C2 



J Exit to 1 




D3 



No 



Add terminal to 
attached list 




I.Set up Put-No-Wait 

(Message) 
2. Issue Put 



hs 



B4 



1. Check input 
length = 8 

2. Check valid 
operator 

3. Check valid data 




1 . Set up Put-No- 
Wait (Message) 

2. Issue Put 



D4 



Yes 




Find proper 
accumulator 



E4 



Add or subtract 
input to 
accumulator 




F5 



F4 ^ \ ^ <0 
Accumulator 



G4 



1. Move "-" to out- 
put area 

2. Make unit position 
printable 



1 . Set up Put, Wait 
message 

2. Put message 




I 2Blj 



1. Set up Invite Input 

2. Invite input 



© 



Figure 4-12 (Part 1 of 3). Program Logic of Example 2 (COBOL MRT Program) 
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t Error 




pfHTl 





— ] Release Terminal 



Yes 



-0 



1 . Set up Release 
Terminal op. 

2. Release terminal 




H2 



Yes 



"( End of job j 



1. Clear terminal 
name entry in 
attached list 

2. Clear accumulator 



-[^InputTP Error 




D4 



Yes 



1. Set up Put-No- 
Walt (Message) 

2. Issue Put 



^ 



Figure 4-12 (Part 2 of 3). Program Logic of Example 2 (COBOL MRT Program) 
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Shutdown Routine 

A1 

( ENTER j 



B1 



Set index = 1 



CI 



Check entry in 
attached list 




Yes 



€) 



1. Set up Stop 
Invite Input Op 

2. Stop Invite Input 



F2 




1. Set up Put-No- 
Wait (message) 

2. Issue shutdown 
message 




Add 1 to index 




K1 



Yes 



( End of job j 



Console Routine 

B4 



f ENTER j 


C4 




1. Set up Put-then- 
Get to console. 

2. Issue Put-then- 
Get 




Set on release 
terminal indicator 



Figure 4-12 (Part 3 of 3). Program Logic of Example 2 (COBOL MRT Program) 
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Input Data Entered by Terminal Operator 



5 5 4 



XXKX 



7 8 9 1011 



M 



A fixed length numeric field where S is a +, — , or N and 
X is a numeric digit. All eight postions must be entered, 
except when N is entered in the first position. 



Data Entered by System Operator on 5471 Printer/Keyboard (Models 10 and 12) or CRT/Keyboard (Model 15) 



^ 






— 


■ 


u 












1 


2 3 4 Si 


e 


7 8 9 1011 


T 


A 




















C 


C 










































^ 























In response to the messages INPUT TP ERROR TNAME- 
cccccc and OUTPUT TP ERROR TNAME-cccccc to the 
console, the system operator replies TA if he wants to 
try again. Any other reply (cc) causes the terminal to be 
released. 



Output to the Console 



1 


2 3 4 5 


6 


7 S 9 101112131416l6l7l6lS5ajl525324S656275829S0; 


1 


N 


P 





r 






T 


p 




g 


R 


R 





1? 




T 


N 


A 


M 


E 


- 


C 


c 


c 


c 


c 


c 









































































U 


T 


P 


u 


T 




T 


p 




E 


R 


R 





R 




t 


ti 


(\ 


w 


E 


- 


c 


c 


c 


c 


c 


c 





































































































































These messages are transmitted to the console (cccccc ■■ 
terminal name). 



Output to Terminal 



fl 


> 3.4.B 


e 


7 8 9 10111213141B161718192021 52j32425262728i93b31323334.1RSfi 


CL 


)R 


R 


E 


N 


T 




V 


'H 


L 


= 


S 


X 


X 


X 


X 


X 


X 


V 


X 


X 


X 




E 


N 


T 


E 


R 




D 


A 


T 


A 












































































n 


?Y 




A 


6 


A 


I 


t\ 




I 


N 


V 




D 


A 


T 


ft 
























































































- 




















Tf 


?Y 




A 


6 


fK 


1 


s 




T 


P 




E 


R 


R 





R 










































































































C( 


:p 




S 


H 


T 


D 


\M 


N 




L 


A 


S 


T 




R 


E 


C 


- 






T 


P 




E 


R 


R 





R 




















































































C( 


:p 




& 


H 


T 


D 


w 


N 




L 


A 


S 


T 




R 


E 


c 


- 






B 


A 


t> 




D 


A 


T 


A 




















































































CC 


,p 




S 


H 


T 





Vil 


N 




L 


A 


S 


T 




R 


E 


c 


- 






S 


X 


X 


X 


X 


X 


X 


X 
















































































C( 


;p 




s 


H 


T 


P 


w 


N 




L 


A 


s 


T 




R 


E 


c 


- 






M 










A 


T 


A 



























































































































































Transmitted with value in accumulator associated with 

the terminal. 

Issued if data is invalid. 

Issued if system operator replies TA (negative return 

code on Accept Input). 

Issued for negative return code on Stop Invite Input. 

Issued for positive return code other than 10 on Stop 
Invite Input. 

Issued for return code of on Stop Invite Input. 
Issued for return code of 10 on Stop Invite Input 



Figure 4-13. Input and Output Message Formats for Example 2 (COBOL MRT Program) 
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IB« SYSTEtl/3 ANEHICAN MATIONIll STAHD&BD COBOL 
STNO -A...B... COBOL SODRCE STATEMENTS IDENTFCS SEQ/HO S 



10 



18 
19 
20 
21 



22 
23 
21* 
25 

26 
27 
28 



29 
30 
31 
32 
33 
31 
35 
36 
37 
38 
39 
40 
U1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



PROCESS MAP, LIST 

IDENTIFICATION DIVISION. 

PnOGRAM-ID. HEC0B1. 

REMARKS. THIS IS A SAMPLE MULTIPLE REQaESTIHG TERMINAL PROGRAM 
DESIGNED TO BUN UNDER CCP. A NUMBER CONSISTING 
OF UP TO 7 NUMERIC CHARACTERS AND A ♦ OR - OPERATOR IS 
TRANSMITTED TO THIS PROGRAM BY ANY ONE OF UP TO 4 
TERMINALS. THE ♦ OR - OPERATION IS PERFORMED AND THE 
RESULTS PLACED IN THE ACCUMULATOR ASSOCIATED WITH THE 
TERMINAL THAT REOUESTED THE OPERATION. THE VALUE IN THE 
ACCUMULATOR IS THEN SENT BACK TO THE TERMINAL FOR 
DISPLAY. IF AN N IS ENTERED AS THE OPERATOR THE 
TERMINAL WILL BE RELEASED. IF THIS IS THE ONLY TERMINAL 
LINKED WITH THE PROGRAM, THE PROGRAM WILL END 
EXECUTION. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-S3. 

OBJECT-COMPUTER. IBB-S3. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 
♦«***♦*♦«»»*♦♦********»*******************♦♦***************♦****♦* 

* INDEPENDENT FIELDS AND CONSTANTS * 
******<♦*♦♦***♦*************♦****♦♦♦************♦**************♦*** 

77 SWITCH PIC 9 COMP-4. 
tttfttt** ******************** ************************************* 

* OPERATION CODES 
*«****»*«♦*»**»**»♦»********♦♦*»*«********«****♦♦♦*»************«* 

PIC S9(4) COMP-4 VALUE 4. 

PIC S9 (4) COIlP-4 VALUE 54. 

PIC S9(4) COMP-4 VALUE 50. 

PIC S9(4) COMP-4 VALUE 5. 

PIC S9(4) COMP-4 VALUE 3. 

PIC S9(4) COHP-4 VALUE 10. 

PIC S9(4) COHP-4 VALUE 1025. 
***»♦♦♦*»♦*»******»»♦»**»**»****♦************•******************** 

* TERMINAL DATA STORAGE ARRAY * 
♦♦*»♦♦**«»»**♦»***«**♦****♦♦»*♦**♦♦**•*»***«*****•*****»********** 

01 TEBMINAL-STORAGE-ARRAY. 

05 TERWINAL-ENTEY OCCURS 4 INDEXED BY TERM-X. 
10 TERM-NAME PIC X(6) . 
10 ACCUMULATOR PIC S9(11) COMP. 
/»♦»»«♦»*»***»»»*♦*****»***»**************»*♦*»»♦*♦*•*»»♦********* 

* COMMUNICATIONS AREA * 

* CCP-COBOL INTERFACE PARAMETER LIST 
****************************************************************** 

01 PAEM-LIST. 

05 PL-SIC PIC S9(4) COMP-4. 
05 PL-OPC PIC S9(4) COMP-4. 
05 PL-OUT PIC S9(4) C0I1P-4. 

05 PL-EFL REDEFINES PL-OUT PIC S9 (4) COHP-4. 
05 PL-INL PIC S9(4) COHP-4. 
05 FILLER PIC X(8). 
*»*»*»*♦*♦♦*♦»*»♦»***»♦**♦****»***************♦*♦**♦*****»******** 

* THIS IS THE INPUT OUTPUT AREA • 
^** ************************************************ *************** 

1 INPUT-OOTPUT-AREA. 

05 TERM-NAME-IO PIC X (6) . 
05 



11 


77 


ACPTIN 


12 


77 


PUTNWT 


13 


77 


PUTHWT 


14 


77 


INVINP 


15 


77 


PUTGET 


16 


77 


RELTRH 


17 


77 


STPINV 




DATA-IN. 

10 OPERATOR PIC X 

10 DIGITS PIC 9(7) COMP 

10 FILLER PIC X(26) . 

05 DATA-INl REDEFINES DATA-IN, 

10 DATA-EEC PIC X (8) . 

10 FILLER PIC X (26 

05 DATA-OUT REDEFINES DATA-IN. 

10 DATA-CHAR PIC X(34). 

05 ACCUM-OUT REDEFINES DATA-IN. 

10 FILLER PIC X(12). 

10 ACCUM-VALUE PIC ♦•■♦t» + + t+t9 

10 FILLER PIC X(11) . 

05 MSG-DATA REDEFINES DATA-IN. 

10 MSG-DATA1 PIC X(22) . 

10 MSG-DATA2 PIC X(8). 

10 FILLER PIC X(4) . 

05 MS-DATA REDEFINES DATA-IN. 

10 RS-DATA1 PIC X(6) . 

10 nS-DAIA2 PIC 1(17). 

10 nS-DATA3 PIC X(6). 

10 FILLER PIC X(5). 

05 TRY-AGAIN REDEFINES DATA-IN. 

10 TA PIC X(2). 

10 FILLER PIC X(32). 




Define a symbolic name for each operation 
used in this program. These names are used 
in the procedure division instead of the 
numeric operation code values. 



Set up a save area for the four terminals 
used by this program and their accumulators. 



Return Code Field 
Operation Code Field 
Output Length Field 
Input Length Field 
Required Work Area 



Terminal Name Field 

The data portion of the record area Is first 
defined for an eight-position field whose 
first position is for the operator (+, — , or 
N). It is then redefined for output and 
various messages. 



Figure 4-14 (Part 1 of 5). Example 2 - COBOL MRT Program 
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56 
57 
58 
59 
60 
61 
62 
63 



65 
66 
67 
68 



69 



70 



72 
73 
7i» 
76 
77 



79 
81 
83 
84 



85 
86 
87 
88 
89 



90 
91 



92 
93 



95 
96 
98 
100 
102 
104 
106 



108 
109 
110 
111 



/****************** ***^t** *^************^** ********** t***********^*** 

* INITIiLLY SET UP THE TEEtllSAL ABBAy IN ORDER THAT THIS * 
» PROGRAM BE RE-EHTBANT * 
****************************************************************** 

PHOCEDURE DIVISION. 
INIT. 

SET TERM-X TO 1. 
LOOP. . ^ 

MOVE ZEROES TO ACCUMULATOR (TEBM-X) . 

HOVE SPACES TO TEB M- NA ME (TEBM-X) . 

SET TEEM-X OP BI 1. 

IF TERM-X LESS THAN 5 GO TO LOOP. 
****************************************************************** 

* SET ap PARAMETER LIST FOR ACCEPT INPUT OPERATION * 

******************************************************************_ 

ACCEPT-INPUT. 

MOVE TO SWITCH. 

MOVE ACPTIN TO PL-OPC- 

HOVE 8 TO PL-INL.— 



****************************************************************** 

* DO ACCEPT INPOT OPERATION * 
****************************************************************** 

CALL 'CCPCIO' USING PAHM-LIST, INPUT-OOTPOT-ABEA. 

****************************************************************** 

* CHECK TO SEE IF SHUTDOWN HAS BEEN EEQOESTED » 
****************************************************************** 

IF PL-RTC = 4 GO TO SHOTDOIIH. 

****************************************************************** 

* DETERMINE IF TERMINAL HAS ALREADY BEEN ATTACHED, IP IT HAS * 

* GO CHECK THE RETURN CODE * 

****************************************************************** 

SET TERM-X TO 1. 
TERM-SEARCH. 

IF TERH-NAME-TO = TERM-NAME (TE8H-X) GO TO TERM-FOUND. 
SET TERM-X UP BY 1. 

IF TERM-X LESS THAN 5 GO TO TERM-SEARCH. 
****************************************************************** 

* CHECK TO SEE IP THE TERMINAL HAS BEEN CAHCELED, IF IT HAS * 

* RETURN TO ACCEPT INPOT IF NO INVITE INPUTS ARE OOTSTAND- * 

* ING. IF INVITES OUTSTANDING GO TO ACCEPT INPUT. * 
****************************************************************** 

IF PL-RTC NOT =8 GO TO ADD-TERM. 

IF PL-EFL = GO TO DOHE-EXIT. 

GO TO ACCEPT-INPUT. 
ADD-TERM- 
****************************************************************** 
» ADD TERMINAL NAME TO ATTACHED LIST IF NOT ALREADY PRESENT . * 

* LOCATE A BLANK 6 CHARACTER TERMINAL NAME SPACE IN THE * 

* TERMINAL DATA STORAGE ARRAY * 
****************************************************************** 

SET TEBM-X TO 1. 
BLANK-SEARCH. 

IF TERM-NAME (TEHM-X) NOT = SPACES 
SET TERM-X UP BY 1 
GO TO BLANK-SEARCH. 
****************************************************************** 

* NOTE: NO MORE THAN 4 TERMINALS MILL BE ALLOWED TO * 

* COMMUNICATE WITH THIS PROGRAM IP ASSIGNMENT SPECIFIES * 

* 4 TERMINALS * 
****************************************************************** 

MOVE TERM-NAME-IO TO TERH-NAHE (TERH-X) . 
GO TO VALIDITY-CHK. 
/*****************************************************■************ 

* CHECK TO SEE IP IBSNIMAL HAS BEEN CAMCELLBO. IF II HAS AID « 

* THEHE ABE NO II7ITES OUTSTANDING GO TO EXIT. IF THEBE ARE * 

* INVITES OUTSTANDING GO BBNOVE PROR ACTIVE TERNIHkL ABBAI. * 
*************************************»«*****t,*****t*************** 

TESM-POOIID. 

IF Pl-RTC = 8 GO TO CIHCEL-CBK. 

****************************************************************** 

* CHECK FOB INPUT E8B0H IRDICITIOHS, ISSUE EBROB MESSAGE IP » 

* RETURN CODE NOT = 0, OB IP LENGTH NOT WITHIN RANGE * 

* CHECK FOB VALID OPEBATOB, IP OPERITOB EQUAL TO N SO BELEASE * 

* lERHINAL * 
****************************************************************** 

VALIDITY-CHK. 

IP Pl-BTC LESS THAN SO TO PUT-GET. 
IF PL-RTC GREATEB THAU 60 TO INVALID- DATA. 
IF OPERATOR = •»' GO TO CilCEL-CHK. 
IF PL-OOT HOT =■ a THAN GO TO INVALID-DATA. 
IP OPERATOR = •♦' GO TO ADD-ACCUB. 
IF OPERATOR = •- • GO TO SUB-ACCUH.. 
****************************************************************** 

* ASSUME BAD OPEBATOB, ISSUE INVALID DATA MESSAGE * 
****************************************************************** 

INVALID-DATA. 

MOVE 'THT AGAIN INV DATA' TO DATA-OUT. 

MOVE 18 TO Pl-ODT. 

GO TO PUT-NO-WAIT. 




Initialize the accumulators to zeros and the 
terminal name save areas to blanks. 

Set the value for the accept input operation 
In the operation code field of the parameter 
list. 

Set the input field length to 8, the length of 
the expected input. 



Determine if the terminal name for the 
terminal that transmitted the input data is 
in the terminal name save area. If it is, the 
data Is added to the value in the accumulator 
associated with that terminal. If it is not 
in the save area and the terminal is not 
cancelled, the terminal name is added to 
the save area. 



If the terminal name is not already in the 
terminal name save area, it is moved to the 
first blank terminal name field in the save 
area. 



Figure 4-14 (Part 2 of 5). Example 2 - COBOL MRT Program 
4-30 



If the return code is not equal to 0, indicat- 
ing a successful operation, or if the input 
length field is not equal to 8, ar error 
message is transmitted to the terminal. 

If the first position of the input field is 
+, the data is added to the accumulator 
associated with the terminal that transmitted 
the data. If the first position is -, the data is 
subtracted from the terminal. If the first 
position is N, the terminal is checked to see 
if it is cancelled. 

If the first position of the input data is not 
+, -, or N, a message is transmitted to the 
terminal. 



^•««** ******************************************** ***•*•*••******* 

* wow ADD THE V»tOE BECIBVED »S IHPOT TO THE IkLOt I» THE * 

* iCCONOLMOR * 
«•**«««♦***»*»»♦«♦«•♦*«*»♦*«*»»«♦»***»*»»»•»♦»*»*•**•••••»*»•**•♦* 

112 ADD-iCCtlH. 

113 ADD DIGITS TO ACCOHBIATOR (TEBH-X) . 
1111 GO TO DISPLAI-iCCnH. 

**♦«»**♦♦«»♦»♦«*****•*****»**•♦*****•******♦*♦**•*»*•********♦♦**♦ 

* SOBTRACT THE VAIDE RECEIVED AS IWPDT FROS THE VALOB IM THE * 

* ACCDHDLATOR * 
tt*a*******»*****»************************************************ 

115 SUB-ACCOH. 

116 SOBTRACT DIGITS FROB ACCOHOIATOB (TBHII-X) . 
****************************************************************** 

* SET OP TO DISPLAY THE RESDLTS RESIDIIG IH THE ACCOHOLATOH • 
» TO THE TERHIWAL THAT RBQOBSTBD THE OPERATION * 

,»»,»»t»»*«»»#*»**»«***«*****»*********»»****»**»*******»****«;^|*" Insert accumulated value associated with 

ns ""'^SovE^^ORREliT TAL=t BWTBR DATA- TO DATA-OOT. ^""""^I^I^- the terminal in the output message and dis- 

119 HOVE ACC0H0l.ATOR(TERM-x) TO ACCUH-VALUB. _.. — — play on the terminal. 
»«♦.(♦*»*♦»»**•**»*»»»»**«*»»♦**••»•***•»*»*••********•*•*♦***»**** 

* SET OP PAHH-LIST FOR POT HESSAGE WAIT * 

120 HOVE PUTBWT TO Pt-OPC. 

121 HOVE 3<t TO PL-OOT. 

t ***************************************************************** 

* DO POT HESSAGE WAIT OPBRATIOR ♦ 
****************************************************************** 

122 CALL 'CCPCIO' OSIHG PARH-tlST, ISPOT-OOTPOT-AREA. 
♦♦»*«♦***»**♦♦*»•♦***********♦**»»*****♦**•«***♦**•***♦*♦*♦****♦** 

* CHECK HETORH CODE TO SEE IP OPEBATIOH WAS SOCCESSFOl, IF * 

* RETORH CODE MOT EQOAL TO GO ISSDE ERROR HESSAGE * 
♦»♦*»**««*•»***»*»*»**«♦♦«***»«*♦»»*»***»******»♦**♦»•**********♦* 

123 IF PL-RTC HOT = HOVE 6 TO SWITCH 

125 GO TO POT-GET. 
tttttt^t****************************** ***************************** 

* SET UP PARAHETER LIST FOR IHVITE IWPOT * 

****************************************************************** 

126 INVITE-IHPOT. 

127 MOVE INVINP TO PL-OPC. 

128 MOVE 8 TO PL-IHl. 
^t**************************************************************** 

* DO INVITE INPOT OPERATION * 
t^t*t************** *********************************************** 

129 CALL 'CCPCIO* OSING PARM-LIST, IHPOT-ODTPOT-ABEA. 

130 GO TO ACCEPT-INPOT. 

Figure 4-14 (Part 3 of 5). Example 2 - COBOL MRT Program 
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/****************ii* 




* HANDLE SHUTDOHN 




* OUTSTANDING 




******************* 


131 


SHUTDOWN. 


132 


SET TE8M-X TO 


133 


STOP-SEABCH. 


1314 


IF TEBH-1JAI1E(T 


136 


MOVE TESM-NAHE 




******************* 




* SET DP PAHAMETE 




*».******♦**»»***♦♦* 


137 


HOVE STPIST TO 


138 


NOVE 8 TO PL-I 




******************* 




* DO STOP INVITE 




******************* 


139 


CAIL 'CCPCIO' 




*****************«:* 




* IF TERdlNAl NOT 




* IF CANCBLIE 




* OTHERWISE G 




******************* 


mo 


IF PL-RTC NOT 


1«2 


IF PL-EFL = 


1t1 


GO TO IHCE-IND 


1*5 


SET-UP. 




******************* 




* SET UP PABAMETE 




******************* 


1*6 


HOVE PUTNWT TO 


1H7 


MOVE 30 TO Pl- 




******************* 




* INSERT PBOPEB S 




* TERMINAL DAT 




* THE RETURN C 




******************* 


1U8 


IF PL-BTC LESS 


150 




151 


IF PL-RTC = 10 


153 




1511 


IF PL-RTC = 


156 




157 


MOVE 'BAD DATA 


158 


DISPLAY-OUT. 


159 


10VE 'CCP SHTD 




******************* 




* DO PUT NO VAIT 




******************* 


150 


CALL 'CCPCIO' 


161 


INCB-INDEX. 


162 


SET TERM-X UP 


163 


IF TEBH-X = 5 


165 


GO TO STOP-SEA 



*********************************************** 

BEQUEST Bt ISSUING STOP INVITES TO ALL * 

INVITE INPUTS PREVIOOSLt ISSUED * 

*********************************************** 



TO INCB-INDEX, 
ME-IO. 

**************************** 

ITE INPUT * 

**************************** 



**************************** 

* 
**************************** 

PDT-OUTPUT-ABEA. 
**************************** 

SUE SHUTDOWN MESSAGE * 
S OUTSTANDING GO TO EXIT, * 
TOP INVITE OPERATION. * 



1. 

ERU-X) = SPACES GO 
(TE8M-X) TO TERM-Ni 
******************* 

R LIST FOR STOP INV 

******************* 

PL-OPC. 
NL. 
♦*♦***♦♦****+♦*♦*** 

INPUT OPERATION 

******************* 

USING PABM-IIST, IN 

******************* 

CANCELLED, THEN IS 
D THEN IF NO INVITE 
SET UP FOR NEXT S 
******************* 
= a GO TO SET-UP 
GO TO DONE-EXIT. 
EX. 



********** ********^*** ****************** ******* 

R LIST FOR PUT NO HAIT * 

*********************************************** 

PL-OPC. 

OUT. 
*********************************************** 

HUTDOWN MESSAGE TO TERMINAL REFERENCED IN * 
A ARRAY. THE MESSAGE IS SET ACCORDING TO * 
ODE * 

*********************************************** 

THAN MOVE 'TP ERROR' TO MSG-DATA2 

GO TO DISPLAY-OUT. 
HOVE ' NO DATA' TO MSG-DATA2 
GO TO DISPLAY-OUT. 
MOVE DATA-REC TO MSG-DATi2 

GO TO DISPLAY-OUT. 
• TO MSG-DATA2. 

SN LAST REC - ' TO NSG-DATA1. 

*********************************************** 

OPERATION * 

*********************************************** 

USING PARM-LIST, INPUT-QUTPUT-AE EA. 

BY 1. 

GO TO DONE- EXIT. 

RCH. 



Find every terminal name in the save area 
and issue Stop Invite Input to it. If the 
terminal has not been cancelled, a shutdown 
message is issued to it. 



Note: When the last terminal attached to 
an MRT program is processed, issue a Re- 
lease Terminal operation to that terminal 
in order to check the count of outstanding 
Invite Inputs. If the count is greater than 
zero, the program can issue an Accept Input 
operation. For example, suppose an MRT 
program is servicing the maximum number 
of requestors and one or more additional 
requests are queued to the program. If the 
program receives a shutdown-requested 
return code (04) and goes to end of job 
without checking the count of outstanding 
Invite Inputs, the program terminates with 
a 2C termination code (going to end of job 
with outstanding Invite Inputs), and each 
of the queued terminals receives an S06 
message (program cancelled — shutdown). 
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/t* ********************************** ***************************** 

* PHEPH8E INPUT OH OUTPUT ERBOK BESSAGES HERE AND SET UP * 

* PiRftHETEB LIST FOR PUT THEN GET TO CONSOl * 
****************************************************************** 

PUT-GET. 

10VE PUTGET TO PL-OPC. 
MOVE 29 TO PL-OUT. 
HOVE 2 TO PL-ISL. 
t^** ***************************************************** ********* 

* INSERT TERMINAL NAHE = CONSOL, TERMINAL NAME KHEBE ERROR * 

* OCCURREDi AND INPUT OR OUTPUT ERROR MESSAGE * 
»*«**♦♦*»***++**♦**»*♦»*************♦*♦**♦*♦**♦**»♦*****♦»******** 

MOVE • INPUT TP ERROR TNAME =' TO MS-DATA. 
IF SNITCH = 6 MOVE "OUTPUT" TO MS-DATA1. 
MOVE TERM-NAME-IO TO MS-DATA3. 
MOVE 'CONSOL' TO TERM- NAME-IO.^^ 
****************************************************************** 

* DO PUT GET OPEHKTION TO CONSOL * 
**♦*»*««♦**♦♦♦**»»♦»****♦»*»****»******♦♦♦**♦«**♦***«**»»*♦*****♦♦ 

CALL 'CCPCIC USING PAEM-LIST, INPUT-OUTPOT-AHEA. 
*♦♦+♦♦♦♦*****♦#♦*****♦***♦****♦♦***♦*♦*♦*♦♦♦»**♦***********♦****** 

* "lOVE TERMINAL NAME BACK TO TERMINAL NAME AREA IN TERMINAL ♦ 
» DATA STORAGE ARRAY. CHECK FOR REPLY REQUESTING TO TRY * 

* AGAIN — TA, IF TA NOT PRESENT THEN GO DISCONNECT * 
^*^^*************************** ************ ** ** ******************** 

MOVE TERM-NAME (TERM-X) TO TEBM-NAHE-IO. 

IF TA NOT = 'TA' GO TO CANCEL-CHK. 

IF SWITCH = 6 GO TO DIS PL AY-ACCUM., 

«♦«♦♦*«»*+»♦*♦**««*********♦*»♦***♦»****♦**»*****♦*****«♦****»**** 
» IF OUTPUT ERROR MESSAGE THEN GO TRY TO OUTPUT AGAIN * 

* IF INPUT ERROR MESSAGE THEN GO THY TO INPUT AGAIN * 
*««*********♦«**♦»***♦«*♦*«*******»*♦»**************•♦************ 

MOVE 'TRY AGAIN TP ERROR' TO DATA-OUT. 
MOVE 18 TO PL-OUT. 
/******♦**♦***♦*♦****************♦*♦»***********♦***************** 

* SET UP PUT NO BAIT PARAMETER LIST * 
»»»***♦*«♦»»♦******»*♦♦**♦**♦»♦«******»**«*******♦******»*****«*♦* 

PUT-NO-WAIT. 

MOVE PUTNWT TO PL-OPC. 
*♦****♦♦***♦♦******♦♦*«*♦**♦******»***************»♦*♦****»******» 

* DO PUT NO HAIT OPERATION * 
»♦**««»**«****♦♦»»***♦***»***********«********♦****♦*♦************ 

CALL 'CCPCIO' USING PAEM-LIST, INPUT-OUTPUT-AREA. 

GO TO INVITE-INPUT. 
*♦»»♦»**»***«»*********«»»»***«****************♦»«*♦♦♦***»***»**♦* 
» CHECK TO SEE IF THIS TERMINAL HAS BEEN CANCELLED. IF IT HAS * 

* AND THERE ARE NO INVITES OUTSTANDING GO TO EXIT, ♦ 

* OTHERWISE GO CLEAR FROM ACTIVE LIST. IF IT HAS NOT BEEN • 

* CANCELLED DO A RELEASE TERMINAL OPERATION. * 
♦**«♦«♦»*»»»♦******««**«**»**»♦♦****♦•♦»♦****♦******•***♦********* 

CANCEL-CHK. 

IF PL-RTC NOT = 8 GO TO RELEASE-TERM. 
IF PL-EFL = GO TO DONE-EXIT. 
GO TO CLEAR-ENTRY. 
****************************************************************** 

* SET UP PARAMETER LIST FOR RELEASE TERMINAL OPERATION * 
*♦♦♦»««**♦«****♦*♦***♦»****♦*♦***»*♦*****************♦•*********** 

RELEASE-TEBM. 

MOVE RELTBM TO PL-OPC. 
♦*♦***»«**«»*****♦♦*♦♦*♦**♦*♦********•**************♦**♦***♦****** 

* DO RELEASE TERMINAL OPERATION * 
»*♦«♦«»♦»♦***»**♦♦»»*»***♦**»**♦********»»**♦*♦♦*******»**•*»»»*** 

CALL 'CCPCIO' USING PARM-LIST, INPUT-ODTPOT-ABEA. 
IF PL-EFL = GO TO DONE-EXIT. 
if*t******************************** ********* ********************** 

* INITIALIZE THE TERMINAL DATA STORAGE ARRAY ENTRY FOB THE * 

* RELEASED TERMINAL TO BLANKS AND ZERO THE ACCUMULATOR AND ♦ 

* RETURN TO ACCEPT INPUT * 
»**♦**♦♦**♦»**»**********♦**♦***»***»*♦*♦*****♦******************* 

198 CLEAR-ENTBY. ~ 

199 MOVE SPACES TO TERM-NAME (TEHB-X) . 

200 MOVE ZEROES TO ACCUHULATOE (TERM-X) . 

201 GO TO ACCEPT-INPUT. 

202 DOME-EXIT. 

203 STOP RUN. 



166 
167 
168 
169 



170 
171 
173 
17it 



175 



176 
177 
179 



181 
182 



183 
1BH 



185 
186 



187 
188 
190 
192 



193 

19'» 



195 
196 



If an input error occurred, the message 
'INPUT TP ERROR TNAME xxxxxx' is 
issued to the console (xxxxxx = terminal on 
which the error occurred). If switch equals 
6, a similar output error message is built 
and issued. 

If the system operator keys in TA, the ter- 
minal name of the terminal on which the 
error occurred is placed in the terminal 
name field of the record area and the 
operation Is retried. If the operator keys 
in any other characters, the terminal 
name for which the error occurred is 
placed in the record area and, if the ter- 
minal has not been cancelled, a release 
terminal operation is issued to it. 




When a terminal is released, reinitialize the 
accumulator to zeros and the terminal name 
save area to blanks. 



Figure 4-14 (Part 5 of 5). Example 2 - COBOL MRT Program 
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Chapters: FORTRAN IV 



To request CCP communication services, you must write 
your FORTRAN programs using the standard application 
program interface, described in Chapter 2. 

This standard interface is composed of the following 
elements: 

• Communications Service Subroutine 

• Parameter List 

• Record Area 

Note: This chapter assumes that you are familiar with the 
FORTRAN language. For more information on writing and 
executing FORTRAN programs, see the publication IBM 
System/3 FORTRAN IV Reference Manual, SC28-6874. 



FORTRAN USE OF THE STANDARD INTERFACE 

To use the standard application program interface to the 
CCP, your FORTRAN application program must: 

1. Define the record area and the parameter list (see 
Defining the Record Area and Parameter List). 

2. Set the contents of the parameter list and the record 
area (see Setting the Contents of the Parameter List 
and Record Area). 

3. Call the communications service subroutine, identifying 
the program's parameter list and record area, to 
initiate the operation (see Calling the Communications 
Service Subroutine). 

4. Examine information returned by the CCP in the 
parameter list and record area and, for input operations, 
process the input data (see Examining Returned 
Information). 



DEFININCS THE RECORD AREA AND PARAMETER 
LIST 

Before your FORTRAN program can perform communi- 
cations operations, you must define one or more record 
areas and parameter lists. 



Record Area 

The number of record areas you must define depends upon 
the logic of your program. You need not always define 
separate record areas for input data and output data, or for 
operations with different terminals. 

Each record area defined must be large enough to contain 
the name field and the maximum length of data to be 
received as input in the record area or to be transmitted 
as output from the record area. Define each record area 
you require as an array using an explicit specification 
statement. Define the array as type INTEGER*2. You 
may specify an initial value for the elements of your record 
area array by using the DATA statement. 

Define the data portion of the record area as required by 
your record formats. You should define all data items as 
literal or unpacked data unless data is to be transferred 
over a BSCA line using Text Transparency (see index entry 
terminal attributes) , when you can define data fields of 
the record area as binary, packed, or hexadecimal. 

Many FORTRAN application programs require that the same 
record areas be used for records with different formats. By 
defining each record area array needed by the program and 
using EQUIVALENCE statements, you can redefine the 
record area array in a different format. The EQUIVALENCE 
statement specifies that the redefined record area format 
shares the same storage locations as the original record area 
array definition. 



Example: Figure 5-1 shows how to define a record area 
whose record may be in either of two formats. The 
EQUIVALENCE statement assigns the array LTERM to 
the same storage locations used by the first six elements 
of MAREA, ARRAY1 to the same locations used by the 
next 30 elements of MAREA, and ARRAY2 to the same 
locations used by the last 20 elements of MAREA. The 
DATA statement initializes the six elements of the terminal 
name array, LTERM, to blanks. 
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Figure 5-1. Defining a Record Area Array 



Parameter List 

You must also define one or more parameter lists in your 
program (see index entr^ parameter list). Define each 
parameter list you require as an eight element array using 
an explicit specification statement. Define the array as 
type INTEGER*2. The first four fields of the parameter 
list should be defined as two-byte numeric elements. You 
can initialize these fields by specifying them in a DATA 
statement. These fields are, in the sequence they must be 
defined in the parameter list: 

1. Return code field. 

2. Operation code and modifiers field. 

3. Field used jointly for output data length, actual 
input data length, count of outstanding Invite Inputs, 
and attributes identifier. 

4. Maximum input/output data length field. 

These fields are the only fields you reference in your appli- 
cation program. The remaining four fields of the parameter 
list are not referenced directly by your FORTRAN program. 
However, they must be defined because space must be 
reserved for them. Your program should never initialize or 
set these fields. 

Unless required by your program, you do not need to define 
separate parameter lists for each operation type nor per- 
manently associate a parameter list with a particular record 
area array. The number of parameter list arrays you define 
in your program need not be the same as the number of 
record area arrays. 



Example: Figure 5-2 shows how to define a parameter list 
array in a FORTRAN program. The EQUIVALENCE state- 
ment assigns LRTC to the same storage locations as the 
first element of the parameter list array, LOPC to the same 
locations as the second element. LOUTL to the same loca- 
tion as the third element, and LINL to the same location as 
the fourth element. The remaining four elements of 
LSTPRM are the required work area and are not set by the 
FORTRAN program. The operation field, LOPC, is 
initialized to 2 for a PUT operation. The output data length 
field, LOUTL, is initialized to 48. This value might be the 
length of the first output message. The maximum input/ 
output data length field, LINL, is initialized to 60. This 
value might be the total length of the data portion of a 
record area used with this parameter list. 



Return Code Values 

The CCP ignores the contents of the return code field of 
the parameter list at the beginning of a communications 
operation. At the completion of each operation, the CCP 
places a binary value in this field indicating the status of 
the operation. 

This value indicates: 

• The operation completed normally (value of zero for 
nonchained operations, 14 for chained operations) 

• The operation resulted in an I/O error (negative value) 

• The operation resulted in an exceptional condition 
(positive value) 
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Figure 5-2. Defining a Parameter List Array 



The CCP places this value in the return code field of the 
parameter list before returning to your FORTRAN program. 
The FORTRAN program must checl< the return code value 
upon the completion of each operation. Specific return 
code values and their meanings are given \n Appendix F: 
Return Codes. 

Operation Code Values 



SETTING THE CONTENTS OF THE PARAMETER LIST 
AND RECORD AREA 

You must set the contents of the following areas before 
performing a communications operation in FORTRAN: 

1 . Parameter list array, if different from the last 
operation. 



For each communications operation, you must set the 
operation code field of a parameter list to a value which 
indicates the specific operation being requested. You must 
set this value within your FORTRAN program. This field 
can be set by initializing the field in the definition of the 
parameter list array or by moving constants into the oper- 
ation code array element during execution (see Setting 
Fields in the Parameter List later in this chapter). 

The CCP does not change this field during the communica- 
tions operation; the contents of the field are the same after 
completion of the operation as they were at the beginning 
of the operation. See Chapter 2: Standard Application 
Interface to the CCP for descriptions of the valid operations. 
Appendix E: Operations Codes summarizes the operations 
and operation code values. 



The program name or the symbolic terminal name 
in the first six elements of the record area array. 
(This step can be omitted if a terminal name is not 
required for the operation, or if the name is the 
same as in the previous operation.) 

Output data in the data portion of the record area 
array if the operation is an output operation. 



Setting Fields in the Parameter List 

You reference four parameter fields within your FORTRAN 
program. 

• Return Code field. 

• Operation Code field. 



• Field used jointly for output length, effective input 
length, count of outstanding Invite Inputs, and attributes 
identifier. 

• Maximum input/output length field. 
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You need set only the operation code field and the maximum 
input/output length field for input operations. If you are 
doing an output or an Acquire Terminal operation, you 
must also set the field used as the output length or attri- 
butes identifer. You need never set the return code field; 
it is used only by the CCP to return information about the 
operation to your FORTRAN program. 



Operation Code 

Whenever a communications operation is issued, this 
field must contain a value indicating the operation to be 
performed. You can set this field when you define the 
parameter list array by specifying a DATA statement: 

DATA OPC/2/ 

■You can also set this field by specifying an assignment 
statement. You can assign it either a numeric value or a 
numeric variable. In the following example, the operation 
code element of the parameter list, LOPC, is assigned the 
value 2. 
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The following example sets the operation code array 
element, LOPC, by moving the numeric variable, PUTOP, 
into it. PUTOP is defined with the value 2. 
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The CCP never modifies the value in the operation code 
field. You do not need to reset the field if the operation 
to be performed is the same as the last operation using 
this parameter list. 

For more information on the valid operations, see the 
chapter Standard Application Interface to the CCP. 
Appendix D: Operation Codes summarizes the operations 
and operation code values. 



Output Length/Attributes Identifier/Count of Outstanding 
Invite Inputs/Effective Input Length 

The third field of the parameter list can contain one of 
four different values depending on the type of operation: 

• Output Length 

• Attributes Identifier 



• Count of Outstanding Invite Inputs 

• Effective Input Length 

The first two values you must set; the third and fourth 
are returned values set by the CCP for certain operations. 

You can set this field when you define the parameter 
list array by means of a DATA statement, or by means of an 
assignment statement, just as you set the operation code 
field. You can assign it either a numeric value or a numeric 
variable. 
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Output Length: For output operations, you must place 
into this field the length of the data you wish to write from 
the record area in your program. This length does not in- 
clude the six elements at the beginning of the record area 
array for the name field. This length must be less than or 
equal to the output length specified for the fourth field of 
the parameter list. The output operations you must set a 
data length for are: 

• Put 

• Put- No-Wait 

• Put-Then-Get 

• Chain Task Request 

You must reset this value if the output data length differs 
from the last operation using this parameter list or if the 
field was modified by the CCP. This field is modified by 
the CCP for the following operations: 

• Get 

• Put-Then-Get 

• Accept Input 

• Get Terminal Attributes 

• Acquire Terminal 

• Release Terminal 



Attributes Identifier: If your operation code specifies an 
Acquire Terminal operation which sets the attributes of 
the terminal to be acquired, you must place into this field 
a value that identifies the attributes you want to assign to 
the terminal. This numeric value must correspond to the 
number you assigned to the desired set of attributes in an 
Assignment run. 



Effective Input Length: You do not need to set this value. 
For each input operation, the CCP places the actual length of 
the data passed to your FORTRAN program in this field 
before it returns control to your program. 



this is a multiple requesting terminal (MRT) program, this 
number includes not only the Invite Inputs you have issued 
that have not yet been satisfied by an Accept Input operation, 
but also the number of additional terminals that have re- 
quested your program but are not yet being served by your 
program. 



Maximum Input Length/Output Data Length 

For each operation involving input data, you must enter a 
numeric value into the fourth field of the parameter list 
indicating the maximum amount of input data you expect 
to receive. For each operation involving output data, you 
must enter a numeric value indicating the maximum amount 
of output data you expect to transmit (in this respect, the 
FORTRAN communications interface differs from the 
standard interface defined in Chapter 2). This output length 
must be greater than or equal to the output length specified 
in the third field of the parameter list, but no greater than 
the size of the data portion of the record area with which 
this parameter list is used, or unpredictable results can 
occur. The value does not include the six elements at the 
beginning of the record area array for the terminal name. 
The input operations for which you must place a value in 
this field are: 

• Get 

• Invite Input 

• Accept Input 

• Put-Then-Get 

• Get Terminal Attributes 

• Stop Invite Input (in case input cannot be stopped) 

The output operations for which you must place a value 
in this field are: 

• Put 

• Put-Then-Get 

• Put-No-Wait 



Count of Outstanding Invite Inputs: On a Release Terminal 
operation and on any input operation that results in a 08 
return code (terminal entered data mode escape and issued 
a /RELEASE command), this field is set by the CCP to 
the number of Invite Input operations still outstanding. If 
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You can set the value of this field when you define the 
parameter list area by specifying a DATA statement or by 
specifying it in an assignment statement. The CCP never 
modifies the value in this field. Therefore, you do not need 
to reset it unless the maximum input/output length for this 
operation is different from the value set in this field the 
last time this parameter list was used. However, if this 
parameter list is used with more than one record area, you 
may need to alter this value during execution of your 
FORTRAN program. 



Example of Setting Fields in the Parameter List 

Figure 5-3 shows how you can set the operation, output 
data length, and maximum input/output data length fields 
of a parameter list. The maximum input/output data length 
element is set by initializing it to 125 in a DATA statement. 
It does not need to be reset unless you wish to receive (Get) 
or transmit (Put) data longer than 125. The operation code 
element and the output length element are set by assigning 
them numeric values. 



Setting the Record Area 

The record area consists of a six-position name field and a 
data area. For an operation with a terminal, except for 
Accept Input and Shutdown inquiry operations, you must 
place the symbolic name of the terminal to be involved 
with the operation. For Chain Task Request, you must 
place the name of the requested program in the name 
field. You must also provide the data to be transmitted 
in the data elements of the record area array when an 
output operation is to be performed. 



Name Field 



You may set the name field when you define the record 
area array by specifying a DATA statement or by specify- 
ing it in an assignment statement. You need not reset the 
terminal name array elements if the terminal to be used is 
the same that was named the last time the record area array 
was used, unless the name was modified by the CCP. The 
CCP modifies the terminal name field of the record area in 
the following,situations: 

• Upon completion of an Accept Input operation, CCP 
sets the name field to the name of the program or ter- 
minal whose data is placed in the record area array. 

• Upon completion of any operation using the field name 
array element set to blanks, CCP sets the name element 
to the name of the requesting terminal. 



Output Data Area 

If the operation to be performed is an output operation, 
you must provide the data to be transmitted in the data 
portion of the record area. You do not need to provide 
data in the record area for operations other than output 
operations because either the data area is not used or data 
is provided to your program by CCP in this area. Data 
provided to your program by the CCP overlays the infor- 
mation previously in the data portion of the data area. For 
example, the input data transmitted to your program by 
the Get part of the Put-Then-Get operation overlays the 
output data transmitted from your program by the Put 
part of the operation. See the Ctiapter 2: Standard 
Application Program Interface to the CCP for more infor- 
mation on transferring data. 

Note: If the message to be sent is shorter than the total 
length of the data area, you need not clear the excess area 
to blanks. 



For operations involving a terminal the name you place in 
a record area array must have been assigned to your program. 
You may also identify the requesting terminal by using six 
blank elements as the terminal name if your program is 
not a multiple requesting terminal (MRT) program (see 
index entry). See Chapter 2: Standard Application Pro- 
gram Interface to the CCP for more information on the 
valid terminal names. 

For a Chain Task Request operation, you must provide the 
name of the program to be loaded in this field. 



Example of Setting the Record Area 

Figure 5-4 shows how you can define and set the record area 
when it is used for both input and output operations. Assume 
the CCP has set the terminal name and data area as the 
result of an Accept Input operation. The FORTRAN pro- 
gram then resets the data area for an output operation by 
moving the message "TRY AGAIN INV DATA" to the data 
portion of the record area array. This message overlays the 
input data transmitted to the record area array by the Accept 
Input operation. Later in the program, the terminal name is 
reset. 
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CALLING THE COMMUNICATIONS SERVICE 
SUBROUTINE 

Since FORTRAN does not include special statement types 
for terminal I/O operations and other communications 
services, the COP provides a communications service sub- 
routine, CCPFIO, that converts your FORTRAN program's 
communications requests into a standard request to the 
COP communication facilities. The functions performed by 
CCPFIO for your FORTRAN program are: 

• Loads index register 2 with the address of your pro- 
gram's parameter list. 

• Places the address of the record area into your pro- 
gram's parameter list. 

• Packs the data from A1 format to A2 before it is 
passed to CCP. 

• Branches to the CCP. 

• Unpacks the data from A2 format back to A1 before 
it is passed to the FORTRAN program. 

The CCPFIO subroutine must be linkage edited with your 
FORTRAN application program. See Chapter 9. Program 
Preparation. 



After you have set the required parameter list array element 
and the terminal name in the first six elements of the record 
area array, and have prepared any output data, you are 
ready to request the CCP to perform the operation specified 
in the parameter list array. You make this request by issuing 
a CALL statement, specifying CCPFIO. The names of 
your parameter list array and record area array must be 
passed as arguments to the subroutine. 

The format of the CALL statement is as follows: 



In the following example, the name of the parameter list 
array is PARM-LIST; the name of the record area array is 
INPUT-OUTPUT-AREA: 

CALL CCPFIO (PARM-LIST, INPUT-OUTPUT-AREA) 

Control returns to your FORTRAN program at the statement 
immediately following the CALL statement. When the 
return occurs, the following actions have already taken place: 

• For output operations, any output data has been accepted 
by the CCP and, depending upon the output operation 
specified, has been received by the terminal. In any 
case, the record area array is now free for you to use 
again. 

• For input operations, any input data which was to be 
received in the record area array is now in the record 
area array. 

• For Accept Input operations, the symbolic terminal 
name of the terminal which provided the data in the 
record area array has been set in the first six elements 
of the record area array. 

• For all operations, the return code field in your parameter 
list array has been set indicating the result of the 
operation. 

• For input operations, the actual input data length has 
been set in your parameter list array. 

• For Release Terminal operations or for input operations 
where the terminal has released itself from the program, 
the count of outstanding Invite Input operations has been 
set in your parameter list. 

• For successful Task Chain Request operations, the re- 
quested program is placed on the program request in- 
put queue when control is returned to the requesting 
program. 



CALL CCPFIO (parameter-list-array-name, record-area-array-name) 
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EXAMINING RETURNED INFORMATION 

After control has returned to your FORTRAN program 
from the Communications Service Subroutine, you should 
examine returned information supplied by the CCP, 
including one or more of the following: 

• The return code 

• The symbolic terminal name (if it was set by the CCP) 
or the name of the program that issued the Chain Task 
Request operation. 

• The count of outstanding Invite Inputs, if a Release 
Terminal operation was performed or if the return code 
value from an input operation indicates the terminal 
released itself. 

• The actual input data length, if an input operation was 
successfully performed. 

• The input data, if an input operation was performed 



Return Code 

The CCP always provides a return code after an operation. 
You should never assume that an operation is successful; 
you should always check the return code. In certain cases, 
you will find that no data transfer has occurred. See 
Appendix E for the meanings of specific return codes and 
see Programming Examples, later in this chapter, for 
examples of checking return codes. 

You may wish to perform certain operations in your 
FORTRAN program depending upon the return code value 
set by the CCP. The example in Figure 5-5 assumes that 
you want to branch to one of several locations depending 
upon the value of the return code. The program examines 
the return code value for the following conditions: 

• The operation was successful and no exceptions occurred. 

• An EOT was received on a successful operation. 

• Some other exception condition occurred. 

• An I/O error occurred. 



Assume that all array names have been defined earlier in 
this program. Note the use of comments in the example. 



Examining a Returned Name 

On certain operations, the CCP returns the symbolic 
terminal name to your program's record area array. You 
may need to examine this name. 

For example, you may need to examine the name of the 
requesting terminal or the terminal that provided the input 
data to associate new data with data previously received 
by comparing the terminal name in the record area array 
with a saved terminal name. You can do this by specifying 
a DO loop that sets the elements of a six-element save area 
array equal to the terminal named elements of the record 
area array. The save area array must be defined as an area 
oftypelNTEGER*2. 

If a program can be requested from both a terminal and an- 
other program using the Chain Task Request operation, you 
may want to determine how the program was requested. 
This can be accomplished by checking for a 14 return code, 
indicating a Chain Task Request operation. This informa- 
tion is useful if a program communicates with the requestor 
since your program cannot communicate with a chain task 
requesting program. 

The example in Figure 5-6 saves the terminal name the CCP 
sets in the terminal name elements of the record area array, 
MARE A, by specifying a DO loop. The terminal name 
elements are saved in the array LFEFER. 
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Figure 5-6. Saving the Symbolic Terminal Name 



Referencing Saved Information 

In some of your FORTRAN programs, you may need to 
save the information entered on the terminals and reference 
it later in your program. For example, if your program 
receives data from several different terminals, you may need 
to associate new data entered on a terminal with data 
previously entered on the same terminal. To do this, you 
must save the significant data received from every terminal 
you are using and identify that saved data with the name 
of the terminal from which it was received. You can then 
associate new data with the saved data by comparing 
the terminal name set by the CCP in the record area array 
with the saved terminal names. 

You can save information for each terminal in a two- 
dimensional array. Each column of elements in the array 
could refer to a set of elements received previously from 
each terminal. The number of rows and columns specified 
by the array depends upon the number of data items and 
terminals. Upon completion of an Accept Input operation, 
you would then search the array to find the array entry for 
the terminal that just transmitted data to your program. 
You can then associate the new data with the saved data by 
specifying a DO loop. 



Figure 5-7 shows how to set up a two-dimensional array for 
saved information and reference the saved information in 
your FORTRAN program. By searching the array for the 
saved terminal name elements that correspond to the terminal 
name elements in the record area array, you can associate 
the new data with the data that was saved. 



Effective Input Data Length 

If the Communications Service Subroutine requested an 
operation which transferred data to your program (Get, 
Accept Input, Get Attributes, Put-Then-Get, or Stop 
Invite Input), the CCP also places the effective length of 
the input data into the parameter list array. Because this is 
the length of the data that was actually received by your 
program, you may wish to use this length to control sub- 
scripted operations in your program. For example, you 
may need to scan the input data for a specific character 
or string of characters. To do this you must know the 
length of the input data you must scan. 
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- Define the save area array. 
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row of the save array area to the 
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When the terminal name is found, 
process the data. 
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When the terminal name is found, set the 
corresponding array element equal to A + B. 
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If MAREA(8) = A, MAREAO) = B, and 
MAREA(IO) = C, you can update the 
corresponding elements by addition, 
subtraction, or replacement. 
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Figure 5-7. Fleferencing Saved Information 
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Count of Outstanding Invite Inputs 

On a Release Terminal operation or on an input operation 
where tlie return code Indicates that the terminal released 
itself from your program, the count of outstanding Invite 
Input operations is returned to your program. You may use 
this number to determine whether your program has any 
further terminals to serve or whether it can go to end of 
job. 

Input Data 

If the operation requested by your program is an input 
operation that transfers data, the CCP places the input 
data received by your program in the seventh and succeeding 
elements of your record area array before it returns control 
to your FORTRAN program. The data is then available 
for you to use in your program. 



USING THE SYSTEM OPERATOR CONSOLE 

If you wish to communicate with the system operator 
through either the 5471 Printer/Keyboard (Models 10 and 
12) or the CRT/Keyboard (Model 15), you must specify 
operations as though the device is a remote terminal. You 
cannot address the system operator console by the TYPER 
subroutine or accept information from the system operator 
console via the KEYBD subroutine. You also cannot 
address the console or a terminal by using the READ or 
WRITE statements. Instead, you must specify a Put or 
Put-Then-Get operation to CONSOL. CONSOL is the 
only name that can be used for the system operator console. 

Your program can communicate with the system operator 
console at any time. To receive data from the console, 
you must issue a Put-Then-Get operation, which: 



1. Transmits a message to the system operator; and 

2. Accepts a reply from the system operator. 

Control is not returned to your program until the system 
operator has transmitted input data to your program. 

Operations that can be issued to the console are: 

• Put 

• Put- Then-Get 

• Get Attributes 



The console is available at all times to communicate with 
any program or to enter system operator commands. 
However, if the console requests a program, it cannot request 
another program until the first program is initiated by the 
CCP. It is not necessary, nor is it valid, to issue an Acquire 
Terminal operation to the console in order to communicate 
with it. 



Example: The example in Figure 5-8 uses the system 
operator console as the terminal for a Put-Then-Get 
operation. Assume that the parameter list array (LPARM), 
the record area array (MAREA), the console name array 
(CONSOL), and all other symbolic names have been 
previously defined. 



FORTRAN PROGRAMMING CONSIDERATIONS 

When writing your FORTRAN program, remember: 

• You cannot use either the R EAD or WR ITE statements 
when addressing either the console or teleprocessing 
terminals. 

• You cannot use the TYPER and KEYBD subroutines to 
address the console. 

• Use of the GLOBAL and INVOKE statements will lead 
to undefined results due to the storage managing charac- 
teristic of CCP. 

• (Model 10 and Model 12 CCP) You must not use a 
PAUSE statement. Programs running under the CCP 
are not permitted to issue halts. 



3270 DISPLAY FORMAT FACILITY 

You can use the 3270 Display Format Facility (DFF) 
of the CCP to aid you in formatting and using the 3270 
display. Chapters. 3270 Display Format Facility describes 
the programming requirements that are unique to using 3270 
DFF, including the unique 3270 DFF operations, additional 
information that must be placed in the record area for 
certain operations, field types that are unique to the 3270, 
and other information. 

See Chapter 8: 3270 Display Format Facility for an 
example of a FORTRAN IV program that uses the DFF to 
support a single requesting 3270 terminal. 
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Figure 5-8. Using the Console 
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PROGRAMMING EXAMPLES 

Two programming examples are explained in this section: 

• Examp/e 7 - A FORTRAN program tliat supports a 
single requesting 3270 terminal without using the Display 
Fornmat Facility. 

• Example 2 - A FORTRAN program that supports 
multiple requesting terminals. 

See Chapter 8: 3270 Display Format Facility for an example 
of a FOFtTRAN IV program that uses the OFF to support 
a single requesting 3270 terminal. 

Example 1 

Figures Ei-9, 5-1 0, and 5-1 1 show the flowcharts, messages, 
and listing for a sample hotel reservations inquiry program 
written in FORTRAN. This program transmits two messages 
to a 3270 Model 1 Display System (480 character screen). 
The first message from the program requests the terminal 
operator to enter a room number. The program uses the 
room number as the relative record number to access a 
disk file whose records contain guest and rate informa- 
tion about the room. This information is then formatted 
and displayed as the second message transmitted to the 
3270 terminal. Figure 5-9 also shows how these messages 
appear on the 3270 terminal. 

This program is a single requesting terminal (SRT) pro- 
gram (see index entry) with no program-selected terminals; 
it can receive data from and transmit data to only one 3270 
terminal. However, multiple copies of this program could be 
in main storage at the same time (if your configuration 
of the CCP allows this), each communicating with a 
different 3270 Display System. (If multiple copies are in 
core at the same time, the disk file must be specified as 
sharable during the Assignment stage— see index entry disk 
file sharing. ) 



Formatting the Messages for the 3270 Display 

Because this sample program does not use the Display 
Format Facility, this sample program must set all formatting 
control characters for the 3270 display screen into the data 
portion of the record area array and transmit them as part 
of the messages to be displayed (see Figure 5-10). Vou 
can find the meanings of each of the 3270 screen format 
characters shown in Figure 5-10 in the publication IBM 
3270 Information Display System Component Description, 
GA27-3004. 



The format characters are set by specifying the arrays 
LOCI, L0C2, L0C3, L0C4, L0C5, L0C6, L0C7, and L0C8 
and initializing these arrays to the required 3270 format 
characters (Figure 5-11). The character Z is used to indicate 
hexadecimal characters since some of the format characters 
can only be specified in hexadecimal. The format characters 
are inserted in the data portion of the record area array by 
specifying an EQUIVALENCE statement that sets the 
format character array elements equal to the corresponding 
element in the data portion of the record area array. 

The notes to the right of the listing in Figure 5-1 1 explain 
the statements used by this program to format the 3270 
display screen. You will also find the comments in the 
listing helpful. 

Notes Concerning this Sample Program 

• Message mode was defined during the Assignment Stage 
for the 3270 terminal used by this program. (See 
TERMATTR statement in CCP System Reference 
Manual.) This eliminates the need to do repetitive 
input operations until EOT is received. 

• To run this program using a terminal other than the 3270, 
you must remove all coding dependent on the 3270. 
This includes all screen formatting specifications and 
3270 screen control characters within the data. 

• This program will not accept data with the program 
request. 

• Two different lengths are used for the output length 
field of the parameter list because the two messages 
transmitted by this sample program have different 
lengths. 

• This program specifies a Put operation and a Get 
operation using six blanks as the terminal name. The 
CCP places the name of the 3270 terminal being used 
in the terminal name field of the record area after the 
first Put operation is performed. 
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• To keep this sample program simple, return code checking 
is kept to a minimum. You may want to do more return 
code checking in your application programs. For example, 
when you issue Accept Input you should check for the 
Shutdown Requested return code (04). Also, if data 
mode escape is allowed in the CCP system, programs 
should check for return code 08 (terminal has released 
itself from the program). It is recommended that each 
installation design its own return code checking and 
console communication routines so that a standard is 
established that is satisfactory to the installation and 

can be used by all application programs. 

• This program does not check the length of the input 
data because the terminal operator is requested to 
enter a three-digit room number. If less than three 
digits are entered, the program is canceled. However, you 
may want to check the input data length in your appli- 
cation programs. 



• Since these are the only two different screen formats 
used by this program, they are both contained within 
the program. For more complete applications, you 
might store the screen formats on disk and read them 
when they are needed by your program. 

• You could also use the Get Attributes operation in 
this program. If you do not know whether the 3270 
Model 1 or the 3270 Model 2 will request the program, 
you can issue a Get Attributes operation to find out 
which type of terminal requested the program. 

• If this program were coded and specified as a multiple 
requesting terminal (MRT) program with a MRTMAX-1 
keyword on the PROGRAM assignment statement (see 
CCP System Reference), multiple copies of the program 
would not be allowed in main storage at the same time. 
As the program is written, multiple copies could be in 
main storage at the same time and the disk file must be 
specified as sharable (FILES keyword of PROGRAM 
assignment statement). 
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START 



1. Set up parameter list for Put-No-Wait 
to send a message. 

2. Format screen for 3270I\/I1. 

3. Issue Put-No-Wait. (Enter Room # 
message). 



ENTER ROOIVI# 



1. Set up parameter list for Get. 

2. Get message (Room #). 




ENTER ROOM #009 



"^ 



No 



No 



Read disk record. (Room # is relative 
record number.) 



1. Move disk data: Room # Rate, 
Name, Address. 

2. Format screen for 3270M1 . 

3. Set up parameter list for Put, No 
Wait message. 

4. Issue Put-No-Wait. (Room #, Rate, 
Name, Address message). 



ENTER ROOM #009 

ROOM #-009 

RATE -$18.50 

NAME -JOHN DOE 

ADDR - 114 5TH AVESW 

ADDR-STURGIS, MINN. 55101 



END OF JOB 



3 



Figure 5-9. Communications Flow of Example 1 (FORTRAN SRT Program) 
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First Message 



22 23 24 25 26 17 26 29 30 31 3? 33 24 35 36 37 3S 39 40 




Second Message 

I 1 2 3 4 5 Sl ^1 r 



! 



EC 
CC— 1 
WCC 
SBA 
BA- 



10 11 12 13 14 15 16 17 18 19 20 31 22 23 2-1 25 26 77 28 29 30 31 3? 33 :t4 




5 36 37 38 39 40 ■ll 42 43 14 46 16 47 4B 49 50 ".I 52 53 54 55 5G 57 53 50 60 61 62 63 64 



m. 



I 



SBA— I 
BA — 




im 



xxxx 



X|)dX[X| x | kX[)dx [>3%(|X[X! 



65 SC 67 68 69 70 71 !2 73 m 7Fi 76 77 7fl 7a ar 81 S2 B'i 84 85 B6 B7 



Vl^ppaR TP^XXXX 



SBA-" 
BA 



XXK 



><x?<)(x)ix;»<X 



) 90 91 92 93 94 



95 



-»-124 



II 



SBA- 
BA- 



ADDR 



XX 



yxx 



XXX 



xvxx 



xxx>i>i 



SF - Start Field 


CC 


- Command Code 


ATT - Attribute Character 


WCC 


- Write Control Character 


IC - Insert Cursor 


SBA 


- Set Buffer Address 


X - Data Character 


BA 


- Buffer Address of first character 


EC —Escape Character 




position In the field 



Figure 5-10. Message Formats for Example 1 (FORTRAN SRT Program) 
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FUKTKAiM IV 



II DAU^<t UNlr^Ja-8 
♦ PRUCESS MACuUDtCK 

1 PKdGRAi^ SKFiJRl 
U 

2 OeFlNt FiLt 8 U U, 7a , L , LAST ) 
C 

C 4'* «*««««*« 4 4: ««*««*««««««««««**«««*»««*«««**«****«*««**«»*«««*«*** «****« 
t COMMUMICATION AKEA * 

C* *****»****»****#»**»*♦*************♦********»*******♦♦***♦♦**** ******* 
C 

3 l,MlEGt< * 2 PAKKKB) iRIG.OPCiOUTLi INL 



10 
11 



13 



I't 
15 



16 
17 



13 
19 



20 
21 



22 
23 



24 
25 



IlMTEutK * 2 iaAREA( 130) ,TNAME(6) lUATAK 124) 

I.vlfEGfcR * 2 lUUTK 124) ,L0C1(6) ,RU0MX(9),L0C2(3) ,RATEX(7), 
» LUC3(3),NAMEX(7) ,LDC4(3) ,A0URX1(7) i 

* LrJG5(3» ,ADJRX2(7) 



INTEGER * 2 1UlJT2 ( 26 ) , LOCbl 6 ) , MESG (12 ) , 

* L0C7(3),1BLAMK(3I ,LGC8(2) 

IMTEGEK * 2 I D ,ROOM( 3 ) ,R ATE I 4 ) iNAME ( 20 ) , ADDR 1 ( 20) , ADDR2( 20 ) 

INTEGER * 2 IUULR,lP01:MT,Ei\|T ^_____^___. 



EQUIVALENCE 1RTC,PmRM(1) ) , ( OPC , PARM ( 2) ) , <QUTL ,PARM( 3 ) ) , 

1 < IML,PARM(4) ) 

EgUIVALENCE I TiMAlE 1 1 ) , 1 GAREA ( 1 ) ) , ( UATAK 1 ) , lOAREA ( 7 ) 1 _ 

EQUIVALENCE (LUCK 1 ) , lUUT 1 ( 1 ) ) , (RUUMX( 1 ) , lOUTl ( 7 ) ) , ' 

* (LUC2(1) ,10UTl(19) ),(RATEX(1) , 1QUT1(22) ) , 

* (IDGLR,1UUT1(29)),(IPUINT,I0UT1(32) ) 
EJUIVALEMCE (L0C3( 1 ) , lUUTl ( 35 ) ) , ( NAMEX ( 1 ) , lOUTl ( 381 ) , 

* (L0C4I 1 ) , 1 OUT 1(65) ) , ( ADDRX 1( 1 ) , I QUTl ( 68) ) , 

* (LUC5(1) , 1l)UT1(95)) ,(A110RX2( 1 ) , lOJT 1 ( 98 ) ) 



EQUIVALENCE (LUC6(1) ,1UUT2( D) ,(MESG(1) ,IQJT2(7) )f 
« (L0C7( 1) ,iUUT2(19) ),(1BLANK(1),I0UT2(22)), 

* (LUCBdJ ,lOUT2(25t ) 



OA(A LUCl /Z2740,2H4L),ZC740,Z1140,Z4040,ZE840/ 



DATA RJOMX /'R U M 



DATA LUC2 / Z 1 140 , ZC140 , Z5040/ 
DATA RATEX /'R ATE - '/ 



DATA LUC3 / Z 1 140, ZC 140 , ZF840/ 
DATA iMAMEX / • N A i1 E - '/ 



DATA LUC4 / Z 1 140, ZC240 , Z6040/ 
DATA ADORXl /'A D R - ' / 



DATA LQC5 /Z 1140 ,ZC340, ZC840/ 
DATA ADDRX2 /'A DDR - '/ 



DATA L0C6 /Z2740,ZF540,ZC740,Z1140,Z4040,Z4040/ 
DATA ,'IESG /'E N T fc R ROOM # 'I 




Parameter list array 
Record area array 

Output area array 



Message area array 

Disk fields 

Other variables used by the program 

Redefine parameter list array 
Redefine record area array 

Redefine output area array 
Redefine message area array 



Initialize 3270 format characters and 
variables 



Figure 5-11 (Part 1 of 2). Example 1 - FORTRAN SRT Program 
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26 OATA LiJCT / Z 1040, ZCg'.O , Z U'.O/ 

27 DATA 13LAMK /3*' '/ 
C 

2a DATA LOGS /Z 1040 , ZF04J/ 
C 

29 OATA TiMAIt /6*' '/ 
C 

30 DATA lOULR/ ' t' /, IPiJINr/' . '/.ENT/' " •/ 
C 

C A PuT SbNDIiNG THE MESSAGE 'ENTER KlIOM #■ [S SENT TO THE 3270 ♦ 

C 

31 OPC = 54 

32 OUTL = '26 

33 INL = 26 

34 CALL MOVE ( I Q JT 2 , 1 , 26, OATAl , U 

35 CALL CCPFIU ( PARM , 1 OAREA ) 
C 

C 00 A GET FOK THE ROOM NUMBER ANO CHECK THE RETURN CODE FOR * 

C ZERO. IF IT IS NOT, ZERO GO TO EGJ. * 
(;♦********** + **#*****#*******#**#**#****♦*#****♦♦♦♦***♦*♦♦♦♦*♦******♦*** 
C 

36 UPC = 1 

37 GUTL = 11 

38 INL = 11 

39 CALL CLPFIU I PARM , lUAREA ) • 

40 IF (RTC.NE.O) GO TO 20 
C 

(;**** **«;****;*>)(*)>!*##♦*«*****♦♦***********♦*******♦*♦*♦*♦*♦*♦*♦ *********** 

C CHECK IF ENTER AID KEV WAS ON AT GtT, IF IT WAS NOT GO TO EOJ * 

C CONVERT THE ROOM NUMBER FROM Al FORMAT TO INTEGER FORMAT * 

C THEN CHECK TO INSURE II IS IN THE RANGE OF FROM 001 TO 010. * 

C 

41 IF (0ATAU3) .NE.ENT) GO TO 20 

42 XKUOM = GET ( DATAl ,9 , 1 1 , 1 . 0) 

43 IimRDOM = XRUQM 

44 IF ( IixjKQGM.LT.D GO TO 20 

45 IF I INRUOM.GI.IO) GO TO 20 
C 

i^#:ti^i^ ii:^ 4:^ ;if^#:^ :^:tf #* if ****^***^* ********** 4*********^**** ******************* 

C REAL) A RECORD FROM A DIRECT-ACCESS DISK. FILE. THE ROOM NUMBER* 

C REPRESENTS THE RELATIVE POSITION OF THE RECORD IN THE FILE * 
i^* tilt, #****************************************************** ************* 

C 

46 READ ( a" INRUQM.IOUOO) 1 Oi ROOM, RATE , NAME , AODRl , AD0R2 
C 

^tftVtL******* ****************************** ****************************** 

C MOVt THE ROOM NUMBER, RATE PER DAY, THE NAME ANO ADDRESS OF * 

C THE GUEST l.iTO THE GUEST ARRAY, THEN DO A PUT OF IT TO THE * 

C 3270 ♦ 

^*^ :lf if **itti**^#^***^**^**** ****************** ****************************** 
C 

4? CALL MOVE I ROuM, 1 , 3 , lOUTl , 16 I 

4B CALL MOVE ( RAT E , 1 , 2 , lOUT 1 , 30 I 

49 CALL MOVE ( RATt , 3 , 4, I OUT 1 , 33 I 

50 CALL MOVE I NAMc , 1 , 20 . 1 OUT I , 45 ) 

51 CALL MOVE ( ADDR 1 , 1 , 20 , 1 OUT 1 , 75 ) 

52 CALL MOVE ( ADDK2 , 1 , 20, I OUT 1 , 105 ) 

53 CALL MOVE ( 1 OUT 1 , 1 , 124 , DAT A 1 , 1 ) 

54 IRETRY = 

55 OPC = 54 

56 OUTL = 124 

57 INL = 124 

58 10 CALL CoPFlO ( PARM , I OARt A ) 
C 

(^♦♦tt »****#*******#******#****♦****♦*****************«*** **************** 

C AFTER THE PUT CHECK THE RETURN CODE FOR ZERO, IF IT IS NOT * 

C ZERO RETRY THE PUT ONE TIME. * 
(;^**^**** *************************************** ************************* 

C 

59 IF (RTC.EU.O) GO TO 20 

60 IF ( IRETRY. EQ.l) GO TO 20 

61 IRETRY = IRETRY + 1 

62 GO TO 10 

63 20 STOP 

64 10000 FORMAT ( A 1 , 3A 1 ,4A1 , 20A1 , 20A 1, 20A 1) 

65 ENU 

Figure 5-11 (Part 2 of 2). Example 1 - FORTRAN SRT Program 
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Example 2 

Figures 5-12, 5-13, and 5-14 show the flowchart, input/ 
output messages, and listing for a sample FORTRAN multiple 
requesting terminal (MRT) program designed to run under 
the CCP. This program supports up to four MLTA requesting 
terminals. The terminal operator enters a seven-digit 
number preceded by a -i-, -, or N. The CCP transmits this 
signed number to the FORTRAN program. 

The FORTRAN program: 

• Adds the number to the value In the accumulator 
associated with the terminal that transmitted the data 
if the first position is + 

• Subtracts the number from the accumulator if the first 
position is - 

• Releases the terminal if the first position is N. 

If a value was either added or subtracted, the new value 
accumulated for the terminal is inserted into the message 
CURRENT VAL = sxxxxxxxxxx ENTER DATA and the 
message is sent to the terminal. 



This sample program also checks for several error conditions 
and transmits the appropriate error message to the terminal 
requesting the operation. 

This sample program is not designed to show the most 
effective way of performing operations. Instead, it shows 
a variety of ways to do things. It uses a variety of opera- 
tion codes that show how data can be associated with a 
terminal by defining a save area array for the terminal names 
and accumulated data. It frequently checks return codes, 
but you can do even more return code checking if you wish. 
Data entered by the terminal operator must be fixed 
length. To allow variable length input fields you could 
include a subroutine in your program to check the effective 
input length returned in the parameter list and align the 
data correctly. This program communicates with the con- 
sole in addition to the requesting terminals. 

The notes to the right of the listing in Figure 5-14 and the 
comments in the listing explain each section of the sample 
program. 
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A1 



( START j 



B1 



1 . Set up parameter 
list for Accept 
Input 

2. Accept Input 



C2 



r^ Exit to j 

V ^hiitriown ^ 




D3 



No 



Add terminal to 
attached list 









F2 



Yes 



Set cancelled 
switch 



^ 




Yes 



No 



Positive return^ ,. Yes 
code im 




I2B4J 



H2 



1. Set up Put-No-Wait 
(Message) 

2. Issue Put 







B4 



1. Check input 
length = 8 

2. Check valid 
operator 

3. Check valid data 




1. Set up Put-No- 
Wait (message) 

2. Issue Put 



D4 



Yes 




Find proper 
accumulator 



E4 



Add or subtract 
input to 
accumulator 




F5 



G4 



1. Move "-" to out- 
put area 

2. Make unit position 
printable 

1 



1. Set up Put, Wait 
message 

2. Put message 





Yes 



1 . Set up Invite Input 

2. Invite input 



^ 



Figure 5-12 (Part 1 of 3). Program Logic of Example 2 (FORTRAN IMRT Program) 
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-jOutput Error 




B4 



— Tlnput TP Error 



3A4 



Console Routine 




1. Set up Put-Wo- 
Wait (message) 

2. Issue Put 




— jRelease Terminal 



Yes 



-0 



1. Set up Release 
Terminal op. 

2. Release terminal 




H2 



'( End of job J 



\ 


No 


Al 


\. Clear terminal 
name entry in 
attached list 

2. Cfear accumulator 



[TbT] 



Figure S-T2 {Part 2 of 3), ProBram Logic of Example 2 (PORTRAN MRT Program) 
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Shutdown Routine 

A] 

( ENTER j 



B1 



Set index = 1 



CI 



Check entry in 
attached list 




Yes 



€) 



1. Set up Stop 
Invite Input Op. 

2. Stop Invite Input 




1. Set up Put-No- 
Wait (message) 

2. Issue shutdown 
message 



Add 1 to index 



No 




-^ Index = 5 



K1 



Yes 



( End of job 1 



Console Routine 

A4 

( ENTER j 



B4 



1. Set up Put-then- 
Get to console. 

2. Issue Put-then- 
Get 



Set on release 
terminal indicator 




Figure 5-12 (Part 3 of 3). Program Logic of Example 2 (FORTRAN MRT Program) 
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Input Data Entered by Terminal Operator 



1 


? 


rt 


^ 


ft 


R 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 23 


24 


s 


X 


X 


X 


X 


X 


X 


K 
















































































































































J 



































A fixed length numeric field \/vliere S is a +, -, or N and 
X is a numeric digit. All eight positions must be entered, 
except when N is entered in the first position. 



Data Entered by System Operator on 5471 Printer/Keyboard (Models 10 and 12) or CRT/Keyboard (Model 15) 



1 2 3 4 5 S 


7 


8 


9 


10 


n 


12 


13 


14 


15 


16 


17 


18 


19 


20 21 


22 


23 


24 


r 


^ 














































c 










































































































































^ 




















„ 




_ 


„ 




_ 


„ 


„ 


_ 




_ 



In response to the messages INPUT TP ERROR TNAME- 
cccccc and OUTPUT TP ERROR TNAME-cccccc to the 
console, the system operator replies TA if he wants to 
Try Again. Any other reply (cc) causes the terminal 
to be released. 



Output to the Console 



(T 


? 


.1 


4 


5 


1^1 


■' 


8 


9 


10 


11 


12 


13 


U 15 16 


17 


18 


19 20 


21 


22 


23 


24 


25 26 27 28 29 30 31 


32 


33 


34 


35 3 


1 


N 


P 


U 


T 






T 


P 




E 


R 


R 


o 


R 




T 


N 


^ 


ME 


• 


C 


C 


C 


c 


c 


c 




















































































D 


U 


T 


P 


U 


T 




T 


P 




E 


R 


R 


o 


R 




r 


Kl 


A 


k£ 


- 


c 


c 


c 


c 


c 


c 






















































- 




































































u 










... 
















_., 



These messages are transmitted 
to the console (cccccc = terminal 
name). 



Output to Terminal 



14 15 16 17 IB 19 20 21 22 23 24 25 26 27 2B 29 30 31 32 33 31 35 36 37 3B 39 ■ 




Transmitted with value 
in accumulator associated 
with the terminal. 

Issued if data is invalid 

Issued if system operator replies TA 
(Negative return code on Accept Input) 

Issued for negative return code on 
Stop Invite Input 

Issued for positive return code other 
than 10 on Stop Invite Input 

Issued for return code of on 
Stop Invite Input 

Issued for return code of 10 on 
Stop Invite Input 



Figure 5-13. Input and Output Message Formats for Example 2 (FORTRAN MRT Program) 
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FORTRAN IV 



♦ paocH 

1 
2 
3 

4 

5 
6 

7 



10 
11 
12 
13 

14 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



27 



28 



29 
30 
31 



12 
33 



34 
35 
36 



37 
38 
39 



PBOSRliM MRF0R1 

INTEGER* 2 LPARI1(8) , BARE»(40) .TERM (4 4) ,IRTC, LOPC , LINl, LOUTL, LEFL 

INTEr,ER*2 ACCEPT, POT NUT, PUTMHT,IKVINP,POTGET,RElTBN,STPIHV 

INTEGER*2 CRNTVL{34) .CONSOL (6) , LBLMK, LPLBS, LBINUS, LNNN, N 

TNTEGEH*2 I ,11 , J, JJ, JJ J , B SA V (2) 

INTEGER*2 BRMSGI (2) ,ER!1SG2(16) , ER1SG3 (12) ,ERnSG4 (18) ,E8BSG5 (18) 

rNTEGER*2 ERflSG6 (22) , ERBSG7 (24) 

INTEGEH*4 LZERO 

EQUIVALENCE (LRTC.LPARK (1) ) , (LOPC, LP AHB (2) ) , (LOUTL.LPABB (3) ) 
1 (LINL.LPARN (4) ) , (LEFL, LPARB ( 3) ) 

DATA ACCEPT, PUTNIIT, PIJTMWT ,INVIN P, PUTGET, RELTRM/4 ,54 ,5 0,5,3, 10/ 

DATA STPINV/1025/ 

DATA LPLtIS,lSINUS,LNNN,LBlNK/'t' ,'-' ,'N',' •/ 

DATA LZERO/' 00'/ 

DATA CRNTVL/'C nRRENTVAL=+ E 

1 E R DATA'/ 

DATA CONSOL/'C N S L '/ 

DATA TERM (1) , TERM (12) ,TEH!1(23) ,TERH(34)/4*' '/ 

DATA LINL/34/ 



'/ 



p 


E 


R R 


R 


T N 


ABE 


= ■/ 






p 


U T 





H T 


PUT 


'/ 








Y 


A 


G A 


I N 


T P 


E R 


R R 


'/ 




¥ 


A 


G A 


I N 


I N 


V D 


ATA 


'/ 




P 


S 


H T 


D 11 


N L 


AST 


R E 


C 


•/ 




E R 


R 


R B 


A D 


DAT 


A N 





DATA 



DATA ERNSGI/'T A 

DATA EHHSG2/' T 

DATA EHHSG3/'I N 

DATA ERMSG4/'T R 

DATA ERBSG5/'T R 

DATA ERBSG6/>C C 

DATA ERBSG7/'T P 

Q^^^W^T^ti^tttt^^t************************** ************ ******************* 

C II = IflDEX FOB TERBINAL ARRAY, JJ=SHITCH, JJ = 1 IHPDT, JJ=7 ODTPOT. * 

C JJJ=ADDITIONAL INDEX FOR VARIOUS SHORT TERB PURPOSES. • 

C * 

C SET UP PABABETER LIST FOB ACCEPT INPUT * 

Q** ************************************************************** ******* 

00100 JJ=1 I 

LOPC=ACCEPT ( 

Qt**V*****************tt ************************************* *********** 

C 00 ACCEPT INPUT OPERATION * 

(:*********************************************************************** 

CALL CCPFIO (LPARB, HAREA) 

l^********** ************************************** *********************** 

C CHECK TO SEE IP A SHUTDOWN HAS BEEN REQUESTED * 

Q***i,*********t** **************************** *************************** 

IF (LRTC-4) 00190,02500,00190 
Q********* ******************************************************* ******* 

C DETERBINE IP TERBINAL IS ALREADY ATTACHED, NCOMP IS SET TO IF » 

C PIBST 6 ELEHENTS IN BESSAGE AREA HATCH A 6 ELEHENI TBHBIITAL * 

C NABE IN THE TERHINAl DATA STORAGE ABBAT * 

Q****** ***************************************************************** 

00190 DO 00200 11=1,34,11 

IF (NC0HP(MAREA,1,6,TEBH,II)) 00200,00600,00200 
00200 CONTINUE 
Q***** ************************************ ****************************** 

C CHECK TO SEE IF TERBINAL HAS BEEN CANCELLED. IP IT HAS BETORH * 

C TO ACCEPT INPUT IF INVITES ABE OOTSTANDIIIG, IP HO INVITES ABE » 

C OUTSTANDING GO TO EXIT. * 

C******************** ************************************ *************** 

IF (LRTC-8) 00250,00220,00250 
00220 IF (LEFL) 00100,09000,00100 

C*t ****************************** **************************^,******H,ttt:* 

C LOCATE A BLANK 6 ELEMENT TERMINAL NAME SPACE IN THE TERMINAL DATA * 
C STORAGE ARRAY « 

C NOTE: NO BORE THAN 4 TERMINALS WILL BE ALLOKED TO COMMUNICATE ♦ 
C WITH THIS PROGRAM IP ASSIGNMENT SPECIFIES 4 TERMINALS * 

C*** ************************************** ****************************** 
00250 DO 00300 11=1,34,11 • 

IF (TERM(ri) .EQ.LBINK) GO TO 00400 
00300 CONTINUE 

C **************************************************************** ******* 
C INSERT THE NEK TERMINAL NAME INTO THE SPACE JUST LOCATED AND ZERO * 
C THE ACCUMULATOR ASSOCIATED WITH THIS LOCATION « 

C ************************** ********************************************* 
00400 CALL MOVE (MAREA,1,6,TERB,II) 

CALL FILL(TERM,IH-6, lino, LZERO) 

GO TO 00610 
C ********************** *****i**** ********* ****************************** 

C CHECK TO SEE IF TERMINAL HAS BEEN CANCELLED. IF IT HAS GO MAKE * 
C TERMINAL NAME AREA AVAILABLE FOR NEW ENTRY * 

C ***************************************************** ****************** 




Define parameter list array, record area 
array, save area array, console name array, 
output message array, error messages, and 
other variables used by program. 

Set parameter list fields equal to elements 
in parameter list arrays. 

Initialize operation code fields, output 
messages, save area array, error messages, 
and other variables used in program. 



Set operation code field equal to numeric 
variable for Accept Input. 




Determine if the terminal name for the 
terminal that transmitted the inF>ut data Is 
in the save area array. If it is, the data is 
added to the accumulator associated with 
that terminal. If it is not in the save area 
array and the terminal is not cancelled, 
the terminal is added to the save area array. 
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i|0 00600 IF (LBTC-8) 005 10 , 0U900, 006 1 

C ******************************************************** *************** 
C CHECK FOR INPUT ERROR INDICAT TONS , ISSUE ERROR dESSAGE IF BETD8JI * 
C CODE NOT EQUAL TO 0, OK IF LENGTH NOT 8 * 

C CHECK FOB VALID OPgHATOH, IF OPERATOR EQUAL TO N GO RELEASE TERMINAL 
Q***tt***************** ************************************** *********** 

41 00610 IF (LHTC) 2800,00650,00700 

1)2 006SO IF (I1AREA(7) .EQ.INNN) GO TO 0K800 

q3 IF (LEFL-8) 00700,00660,00700 

4it 00660 IF (H»BES(7).Eg.LPLUS) GO TO 00900 

1*5 IF (I1AREA(7) . EQ.LKINUS) GO TO 00900 

(;♦»*♦*♦♦♦*****»«»*****»»***********»♦*»**»»*»»**♦********•*************♦ 
C ASSUME BAD OPERATOR, ISSUE INVALID DATA MESSAGE • 

(■*********************************************************************** 

He 00700 CALL HOVE {E8MSG5 , 1 , 1 R , M AREA , 7) ~ 

1(7 L0UTL=18 

1»8 GO TO 0t300 

C********* ******************************************* ******************* 
C CONVERT THE VALUE RECEIVED AS INPUT PROM CHARACTER (A1) TO ZONED * 
C DECIMAL (D1) FORMAT * 

C IP N NOT EQOAL TO SET UP INVALID DATA MESSAGE * 

Q ***************************************** ****************************** 

119 00900 N = 

50 CALL A1DEC{HAHBA,8,14,N) 

51 IF (N) 00700,01000,00700 

C ******************************************************** *************** 
C NOW ADD THE VALUE RECEIVED AS INPUT TO THE VALUE IN THE * 

C ACCUMULATOR ASSIGNED HITH THE TERMINAL NAME * 

;;♦*♦♦**»»»**»»»*»*******«*♦♦*****♦*♦»♦♦»****»****«*********♦*******♦**** 

52 01000 JJJ=II+6 

53 N=0 

54 IF |[MAREA(7). EQ.LMINUS) GO TO 01500 

C »»»»»♦«♦«********♦********♦*****»»***♦** ******************************* 
C ADD VALUE RECEIVED TO VALUE IN ACCUMULATOR * 

Q************************** ********************************** *********** 

55 CAT.r. ADD (MAREA. 11. 14,TEEN,JJJ,JJJ+4,N) 
55 GO TO 01600 

57 01500 CALL SUB(MABEA, 11,14,TEHM,JJJ,jajt4,N) 

C *************»*♦♦**********»*****♦♦♦♦»»*********♦»****»*»**»**•* ******* 
C SET UP TO DISPLAY RESULTS IN ACCUMULATOR, TO TERMINAL • 

C NOTE: IF OVERFLOH OCCURRED MAX VALUE WILL BE DI SPLAYED, ALL 9'S * 

£*********************************************************************** 

58 01600 CALL MOVE (CRN TVL, 1 , 34 ,MARE A , 7) 

59 CALL H0VE(TERH,JJJ,JJJ+4, MAREA, 25) 

Q**************** ************************************ *******************, 

C SET INDICATOR N ACCORDING TO THE SIGN OF THE ACCUMULATOR VALUE THEN* 
C SET LAST DIGIT OF ACCUMULATOR VALUE POSITIVE 
(;»♦»«»«*»♦♦«♦♦♦♦♦♦**«*«*»**««»»*»***♦♦****♦♦♦♦**♦**********♦***♦******** 

60 CALL NSIGN(MAHEA,29,1,N) 

61 IF (N) 01800,01900,01900 

62 01800 MAREA{19)=LMINnS 
Q **************************************************************** ******* 
C CONVERT THE ZONED RESULTS TO CHARACTERS IN A1 FORMAT FOR OUTPUT • 

Q********#************* ************** *********************************** 

63 01900 N=0 
54 CALL DECA1 (MAREA, 20,29, N) 

Q****** ****************************************** *********************** 

C SET UP PARM LIST POR PUT MESSAGE WAIT * 

1^**************** ************************* ****************************** 

65 LOPC=PUTHWT 

66 LOUTL=34 
C»** ♦»***«******♦***********♦***♦♦****♦**♦**♦****♦******♦♦**♦**** ******* 
C DO PUT MESSAGE SAIT OPERATION * 
C ************************************************************ *********** 

67 CALL CCPFIO (LPABM, MAREA) 
(;*♦*»*«»»**»»*»♦*♦*♦*»*****♦***♦**♦•»**************♦********•*»***♦***** 

C CHECK RETURN CODE TO SEE IF OPERATION HAS SOCCBSSPUI. * 

C IP RETURN CODE NOT EQUAL TO ZERO GO ISSUE ERROR MESSAGE * 

l^********»*********************** *************************************** 

68 IF (LRTC) 02100,02200,02100 

69 02100 JJ=7 

70 GO TO 02800 

(;***«♦**♦«*»♦♦*»«**»*»*♦*»***•*♦»********»******************•***»******* 
C SET UP PARAMETER LIST FOR INVITE INPUT • 

C **************************************************************** ******* 

71 02200 10PC=INVISP 

Q**t ********************************************** ********************** 

C DO INVITE INPUT OPERATION * 

C **»♦**«**********♦*♦************•***********»**•*♦**»••*♦•** *********** 

72 CALL CCPFIO (LPARM,MAHEA) 

73 GO TO 00100 

C »*»***♦****♦*****»»«*♦*•***♦*«**«*•♦******♦******♦*************♦ ♦**♦♦♦* 
C HANDLE SHUTOOMR REQUEST BY ISSUING STOP INVITES TO ALL OUTSTANDING * 
C INVITE INPUTS PHEVIOOSLT ISSUED ♦ 

(;♦«♦»»♦♦♦***»«•**♦«*•»«****»*♦♦»*♦♦**»****•****•**********•****•*♦*****• 

74 02500 DO 02600 11-1,34,11 

75 IF (TERM (II) .EO.LBLNK) GO TO 02600 

(; ********** ****************************************** ******************* 

C SET UP PARAMETER LIST FOR STOP INVITE INPUT * 

C ***»*********»*♦*************♦♦*♦»******»*********♦*******•*•♦*•♦**♦**» 



If the first position of the input field is +, 
the data is added to the accumulator ele- 
ment associated with the terminal that 
transmitted the data. If the first position 
is -, the data is subtracted from the termi- 
nal. If the first position is N, the terminal 
is checked to see if it is cancelled. 

If the first position of the input data is not 
+, -, or N, a message is issued to the terminal. 




Insert accumulated value associated with 
the terminal into the output message and 
display it on the terminal. 



Note: When the last terminal attached to 
an MRT program is processed, issue a Re- 
lease Terminal operation to that terminal in 
order to check the count of outstanding 
Invite Inputs. If the count is greater than 
zero, the program can issue an Accept Input 
operation. For example, suppose an MRT 
program is servicing the maximum number 
of requestors and one or more additional 
requests are queued to the program. If 
the program receives a shutdown-requested 
return code (04) and goes to end of job 
without checking the count of outstanding 
Invite Inputs, the program terminates with 
a 2C termination code (going to end of job 
with outstanding Invite Inputs), and each 
of the queued terminals receives an S06 
message (program cancelled — shutdown). 



Figure 5-14 (Part 2 of 4). Example 2 - FORTRAN MRT Program 
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76 LOPC=STPIMV 

77 CALL MOVE (TERH, 11,11+5, MABE4, 1) 

C**t**t *********************************** **********»********^'*** ******* 
C DO STOP IKVITE INPUT OPERATION * 

Q*t ********************************************************************* 

78 CALL CCPPIO {LPARM.MAHEA) 

Q******************************************** *************************** 

C IP TERMINAL NOT CANCELLED, THEN ISSUE SBIUTDOHN MESSAGE. IP TEBMINAL* 

C CANCELLED THEN GO TO EXIT IP NO OUTSTANDING INVITES, ELSE GO * 

C SEARCH FOR NEXT ACTIVE TERMINAL. * 

Q **************************************************************** ******* 

79 IP (LRTC-8) 02510,02508,02510 

80 02508 IF (LEPl) 02600,09000,02600 

Q*** ************************************** ****************************** 

C SET UP PARAMETER LIST FOR PUT NO WAIT * 

1^*** ************************************** ****************************** 

81 02510 LOPC=POIN1IT 

82 LOUTl=30 

Q **************************************************************** ******* 

C INSERT PROPER SHUTDOWN MESSAGE TO TERMINAL REFERENCED IN TERMINAL * 
C DATA ARRAY. THE MESSAGE IS SET ACCORDING TO THE BETOHN CODE * 

Q********************** ****************************************** ******* 

83 IF (LRTC) 02520,02535,02525 
8i| 02520 JJJ=1 

85 GO TO 02528 

86 02525 IP (LBTC-10) 02526,02527,02526 

87 02526 JJJ=9 

88 GO TO 02528 

89 02527 JJJ=17 

90 02528 CALL MOVE (ERMSG7, J JJ, JJJt7, MAREA, 29) 

91 GO TO 02558 

92 02535 CALL MOVE (MABEA,7, 11, MAREA, 29) 

93 02558 CALL M0VE(ERrlSG6, 1,22,HAREA,7) 

Q* *************************************************************** ******* 

C DO PUT NO WAIT OPERATION . * 

Q**************************** ******************************** *********** 

91) CALL CCPFIO (LPARM, MAREA) 

95 02600 CONTINUE 
95 GO TO 09000 

Q **************************************************************** ******* 

C PREPARE INPUT OB OUTPUT ERROR MESSAGES HERE * 

C SET UP PARAMETER LIST FOR PUT THEN GET TO CONSOL * 

Q **************************************************************** ******* 

97 02800 LOPC=PUTGET 

98 LOUTL=28 

Q**************************************** ******************************* 

C INSERT TERMINAL NAME=CONSOL, TERMINAL NAME WHERE ERROR OCCURREDt * 

c AND INPUT OR OUTPUT ERROR MESSAGE * If an input error occurred, the message 

(2*********************************************************************** ^ ' ^ 

99 CALL MOVE(CONSOL, 1,6. MAREA, 1) — --^„^ 'INPUT TP ERROR TNAME xxxxxx' is 
TOO CALL HOVE(ERMSG3,jJ,JJ+5, MAREA, 7) — ...^^^ issued to tlis console (xxxxxx = terminal 

101 CALL HOVE(TERM, 11,11 + 5, MAREA, 29) __-->• „„ ..,u:„u tu„ „,,„,„„„,,, r„Ji if „„„..»„..<. 

102 CALL H0VE(ERMSG2,1,16,iAREA,13) _— — On which the error Occurred) . If an Output 

c*********************************************************************** error occurred, a similar output error 

c DO PUT GET OPERATION TO CONSOLE ♦ message is built and issued. 

Q **************************************************** ******************* 

Figure 5-14 (Part 3 of 41. Example 2 - FORTRAN MRT Program 
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CALL CCPFIO (LPJBB.MAREA) 
C»**»»»*****«**«»**tt»*««»*»*****»**************************************J 
C HOVE TERMINAL KANE BACK TO TERHINAL NAME AREA IN TE8MI1IA1 DATA 
C ABHAY 

C CHECK FOB BEPLT REQOESTIIIG TO TBI »GAIII — TA * 

C IP I» NOT PHESEHT THEll GO DISCOHNBCT * 

(;**♦♦♦♦»♦****♦****»♦****»*♦****»**********»••**•****»*♦«*•*»**»***♦***** 

HSAV (1)=HABEA (7) 

I1SAV(2)>NABEA{3) 

CXLI aOTE(TSBH,II,II+5,llABE», 1) 

IF <llC0IIP(HS»T,1,2,EBaSG1,1)) 01800, 03800, 0*800 

(;♦****»»*♦*♦***»**»*»****♦***♦♦♦♦**••»******•***••*♦*•******•****♦*♦***♦ 
C IF OOTPUT EBROB MESSAGE THEII GO TBT TO ODTPOT AGAIN * 

Qtttt************************ ******************************************* 

03800 IPIJJ-7) 03810,01600,03810 

C ♦»***♦**♦********♦******♦**♦*****♦*»*»*»******••***•♦*♦********• ******* 

C IF mPOT EBBOH NBSSAGE THEN GO TBT TO INPOT AGAIN * 

(;»♦»»♦«***»*****♦♦♦«*****♦♦*•*•••«*»*♦*♦*♦»♦*»*»**♦***»♦•**♦***********• 

03810 CALL I10VE(BB»SG1, 1,18,MABE»,7) 

L0DTL=18 
Qt******t**************************************************** *********** 
C SET UP POT HO WAIT PAEAHETEB LIST * 

C**» *♦*******•»*»»**»»*****••»»»***»»******•••♦»************* *********** 
01300 L0PC=PBTH1IT 

C **************************************************************** ******* 
C DO POT NO WAIT OPEBATION * 

C **************************************************************** ******* 

CALL CCPFIO(LPAB(l,MAaEA) 

GO TO 02200 
(;♦*«♦♦*«»»»**♦»»*»♦*♦**♦**»***»♦************»*************************** 

C CHECK TO SEE IF THIS TBBHINAl HAS BEEN CANCELLED. IF IT HAS GO * 

C BEHOVE IT FROd THE ACTIVE LIST. IF NOT CANCELLED DO A BELEASE * 

C TERMINAL OPEBATION. * 

C *♦♦*♦*»*♦*♦*♦»**•♦»«•*****»♦****************************** ************* 
01800 IF (LRTC-8) 01850,01900,01850 

(;♦»♦♦♦**»♦***»***»♦*♦**♦*****«*•♦»***♦***♦******************•♦********** 

C SET UP PARAMETER LIST FOB RELEASE TERMINAL OPERATION * 

(2*tt ******************************************************************** 

01850 LOPC=BELTEM 

C ************************************************************ *********** 

C DO RELEASE TERBINAL OPERATION 

C ************************************************************ *♦*****♦♦**/ 

CALL CCPFIO (LPARN.HAREA) 
(;******•»*«******♦*♦***»****«*♦************»*♦************************♦♦ 
C SET THE FIRST ELEMENT OF THE TERMINAL NAME AREA OF THE ABEAT TO A » 
C BLANK, SIGNIFYING THAT THIS ENTRY AND ITS ACCOHULATOB ABE * 

C AVAILABLE. EETORN TO ACCEPT INPUT IF HOHE INVITES ABE OUTSTAND- * 
C IHG, OTHERWISE EXIT. * 

i:*ttt*****r******************************* ****************************** 
01900 TEEB(II)=LBLNK 

IF (LEFL) 00100,09000,00100 
09000 STOP 

END 



If the system operator keys in TA, the 
terminal name of the terminal on which the 
error occurred is placed in the terminal 
name field of the record area and the opera- 
tion is retried. If he keys in any other char- 
acters, the terminal name for which the 
error occurred is placed in the record area 
and, if the terminal has not been cancelled, 
a Release Terminal operation is issued to it. 



Figure 5-14 (Part i\ of 4). Example 2 - FORTRAN MRT Program 
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Chapter 6: RPG II 



Programs written in RPG II can communicate witli terminal 
devices via the CCP by means of either or both of the 
following two RPG II facilities: 

• SPECIAL files - One or more SPECIAL files can be 
defined for communications devices; different file 
types can be assigned, depending on how the device 
is used. 

• EXIT/RLABL operations ■ Terminal operations can be 
requested using EXIT and RLABL operations with sub- 
routines provided by the CCP. 

You can issue all of the communications operations 
described under Operations in Chapter 2 through either 
the SPECIAL or the EXIT/RLABL interface. In general, 
however, use of SPECIAL files is recommended for opera- 
tions involving data transfer, such as Get, Put, Accept 
Input, Put-Then-Get, and Stop Invite Input (which may 
result in a Get). EXIT/R LABL is best suited for use in 
non-1/0 operations, such as Acquire Terminal, Release 
Terminal, and Shutdown Inquiry. By following this 
general rule, you can eliminate the need for RPG II logic 
to move fields from a record area when no data has been 
received. 



• You should be aware of how other programs running 
under the CCP are using disk files that you use in 
your program, especially if records are being added to 
the files. See index entry disl< file considerations for 
detailed information. 

• You cannot use magnetic tape files in programs written 
to run under the CCP. 

Note: You are assumed to be familiar with the RPG II 
object program cycle and the RPG II language, including 
SPECIAL files, arrays, and EXIT/RLABL, READ, and 
EXCPT operations. If you are not familiar with these 
RPG II facilities and operations, you should consult the 
following publications: 

• IBM System/3 RPG II Reference Manual, 
SC2 1-7504 

• IBM System/3 RPG II Additional Topics Programmer's 
Gw/c/e, GC21-7567 

• IBM System/3 RPG II Disk File Processing Programmer's 
Guide, GC21 -7566 



Programming for non-TP devices (console, card devices, 
printer, and disk) under the CCP is the same as in RPG II 
programs that are not written to run under the CCP, with a 
few exceptions: 

• The system operator console is treated as a terminal 
device under the CCP. Therefore, you must communi- 
cate with the console through either SPECIAL or 
EXIT/RLABL; you cannot use the name CONSOLE 
(Model 10 Disk System and Model 12) or CRT77 
(Model 15) on File Description Specifications. 

• You should not specify a core index for disk files 
(columns 60-65 of the File Description Specification). 
The CCP builds a core index based on the MSTRINDX 
keyword of the DISKFILE assignment statement (see 
CCP System Reference Manual). If you also specify a 
core index in your program, you will cause unnecessary 
code to be generated for your program. 



RPG II Use of the Standard CCP Interface 

The interface used by RPG II application programs for 
CCP communications operations differs somewhat from 
the standard interface described in Chapter 2. However, 
you should read Chapter 2 before reading this chapter, 
since most of the information in that chapter also applies 
to RPG II. The differences in the RPG II interface are 
due mainly to the fixed nature of RPG II object program 
cycle, a characteristic that COBOL, FORTRAN, and 
Basic Assembler do not possess. The basic elements of 
the interface, although somewhat different in content 
and use, remain the same: 

• Parameter list 

• Record area 

• Communications service subroutine 
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COMMUNICATIONS INTERFACE USING RPG II 
SPECIAL FILES 

One method of performing operations with terminals under 
the COP is to define one or more SPECIAL files for terminals 
in the File Description Specifications. SPECIAL files can 
be defined in a variety of ways, depending on the needs of 
the particular application. For example, a program that 
performs both input and output operations with a single 
terminal might define one SPECIAL file as a primary input 
file, to be used for input operations with the terminal, and 
a second SPECIAL file as a detail output file, for output 
operations to the terminal. Thus, two SPECIAL files would 
be defined for a single terminal. 

Suppose, on the other hand, the program communicates 
with several terminals. The same two SPECIAL files defined 
for communication with a single terminal could be used for 
communication with several terminals - one for all terminal 
input and one for all terminal output. 

It is also possible to define a single SPECIAL file for both 
input and output operations with one or more terminals. 
For example, a SPECIAL file could be defined as a Combined 
Demand Input and Exception Output file to be processed by 
READ and EXCPT operations in Calculations. 

These are just a few examples of the variety of ways of 
defining SPECIAL files for use in terminal operations via 
the CCP. Any of the following file types can be defined as 
a SPECIAL file to be used for I/O operations with one or 
more terminals: 

• Primary Input file 

• Secondary Input file 

• Demand Input file (used with the READ operation) 

• Exception, Detail, or Total Output file 

• Combined Demand Input and Exception Output file 
(used with READ and EXCPT) 

• Combined Primary or Secondary Input file and 
Exception Output file 

• Combined Primary or Secondary Input and Detail 
Output file 



Parameter Array for SPECIAL 

In the RPG II communications interface to the CCP, using 
SPECIAL, each parameter list must be contained in an 
RPG II array consisting of five elements — six positions 
each. The contents of the parameter array for SPECIAL 
are shown in Figure 6-1 . Notice that the contents of the 
parameter array are similar to the contents of the standard 
parameter list defined in Chapter 2, except that no CCP 
work area is provided and, for SPECIAL input operations, 
the symbolic terminal name with which the operation is to 
be performed is placed in the parameter list. 

Unlike the standard interface defined in Chapter 2, certain 
parameters for the SPECIAL interface are placed in the 
record area, instead of parameter array. See Performing 
CCP Operations with SPECIAL, later in this chapter, for 
details of using the parameter array and record area in 
various operations. 

The parameters for an operation can be placed in the para- 
meter array during RPG II compilation, at pre-execution 
time, or during execution of the program, depending on how 
the array is defined in Extension Specifications (see Defining 
tfie Parameter Array, later in this chapter). 



Record Area for SPECIAL 

When using RPG II SPECIAL, input and output record areas 
for CCP operations are defined by coding Input Specifica- 
tions and/or Output-Format Specifications. As shown in 
Figure 6-2, the formats of the input and output record areas 
for SPECIAL are different from the standard record area 
format defined in Chapter 2. An additional eight positions, 
besides the name field, must be set aside in both input and 
output record areas; therefore, data always begins in posi- 
tion 1 5. Figures 6-3 and 6-4 show example RPG 1 1 specifi- 
cations for input and output record areas. 



Input Record Area 

On input operations, the CCP places the following informa- 
tion in the record area, as well as in the parameter array: 

• Return code for the input operation and the last output 
operation 

• Effective input length from the input operation 

• The program name or the symbolic terminal name 
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Array 

Element Positions Used 

(| 1= not used) 



(Dm 
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® 
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Contents 

• Return code — two decimal characters returned 
by the CCP. 

SPECIAL Input operations: Return code Is placed 
in positions 3-4. 

SPECIAL output operations: Return code is placed 
in positions 5-6. 

• Operation code — two alphameric characters. 

• Operation modifier — two alphameric characters, 
(optional). 

• Output data length— up to four decimal characters 
(c)utput operations). 

• Effective input data length — up to four decimal 
characters (returned by CCP on input operations). 

• Count of outstanding Invite Inputs - a four 
digit decimal number (returned by CCP on release 
terminal operations and when a 08 return code 
occurs on input operations). 

•Terminal attributes identifier — up to three decimal 
_ characters (acquire terminal operation only). 



® 



■ • iVIaximum input data length - up to four decimal 
characters. 

•Program name or symbolic terminal name - up to six 
alphameric characters. 



Note: See Summary - Performing CCP Operations Using RPG II SPECIAL Files, later in this chapter, for a summary 
of the use of the parameter array. 

Figure 6-11. RPG II Parameter Array for SPECIAL Files. 



Because this information is available in the record area, you 
can check the contents of these areas without moving array 
elements into fields. You can also check the input return 
code and effective input length using field indicators. See 
Performing CCP Operations with SPECIAL, later in this 
chapter, for more information about examining the return 
code, effective input length, and terminal name. 



Output Record Area 



H, D, T, and E output specifications can be used to issued 
either output or non-l/O operations (such as Release 
Terminal and Invite Input - for Invite Input, the maximum 
input length must be provided in the parameter array). See 
Performing CCP Operations with SPECIAL, later in this 
chapter, for additional information about setting parameters 
for various operations. 

CCP Communications Service Subroutines for SPECIAL 



Two SPECIAL file subroutines, SUBR92 and SUBR93, are 
On heading, detail, total, or exception (H, D, T, or E) output provided by the CCP for terminal operations. SUBR92 



operations, you must place the following information in the 
output record area: 

• Operation code (positions 1-4) 

• Output length (positions 5-8) 

• Symbolic terminal name, CONSOL, program name, or 
blanks (positions 9-14) 



is used for processing all requests for terminal operations. 
SUBR93 is used only with a "false" SPECIAL file (see 
Defining SPECIAL Files) in order to bypass the record 
selection part of the RPG II object program cycle so that 
input operations can be performed in calculations using 
the RPG II READ operation code. The first entry to 
SUBR93 returns to your program without data; all sub- 
sequent entries to SUBR93 cause the end of the file 
condition to be set on for the false SPECIAL file. 
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SPECIAL Input Record Area 
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Figure 6-3. Input Record Area for SPECIAL 
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Indicators Reserved for COP Use 



DEFINING SPECIAL FILES FOR USE WITH COP 



Indicators 91 and 92 are reserved for use in communica- 
tions operations using the SPECIAL interface. 

SUBR92 sets on indicator 91 when an operation results In 
a negative return code (error condition). SUBR92 sets on 
indicator 92 when an operation results in a positive (greater 
than zero) return code (exception conditions) other than a 
14 return code (the 14 return code indicates a successful 
accept operation of the chain request data). You can use 
these indicators to condition operations in your RPG II 
program. For example, you could use indicators 91 and 92 
to bypass input field moves, calculations, or to execute a 
subroutine that checks return codes when an error or ex- 
ception condition occurs on the previous I/O operation, as 
shown in Figure 6-5. 

If indicator 91 is on when SUBR92 receives control to 
perform an operation, the requested operation is ignored 
and control is immediately given back to your program. 

SUBR92 only sets these indicators on. If your program 
uses indicator 92 to determine whether an exception 
condition occurred, your program must set indicator 92 
off after an exception; otherwise, indicator 92 would re- 
main on until end of job. It is even more important to 
set off indicator 91, because, if it is already on at the time 
a communications operation is issued, the operation is 
not performed, and a return code of -91 is given even 
though the error condition mayno longer exist. 



One or more SPECIAL files can be defined in File Descrip- 
tion Specifications for use with the CCP. If you are a 
beginning user of the CCP, it may be easier for you to define 
one input and one output file instead of a combined file, 
until you gain familiarity with the use of RPG II for CCP 
operations. Combined files, however, are sometimes more 
economical in their use of main storage and are the only 
file types allowed with the Put-Then-Get operation. Com- 
bined files are more economical of main storage if the 
size of the input and output are approximately the same. 
Separate files should be used (possibly sharing the same 
parameter array) if there Is a significant difference (53 or 
more positions) between the sizes of the two record areas. 

Two File Description Specifications are required to define 
each SPECIAL file to be used with the CCP, a main file 
statement and a continuation statement. Figure 6-6 
shows the valid ways of defining a SPECIAL file. Columns 
that are unshaded in the figure have valid required or 
optional entries. 



Note: As shown in Figure 6-6, a continuation specification 
is not required for a "false" SPECIAL file (using SUBR93), 
since a parameter array is not required. 
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Figure 6-5. Using Reserved Indicators 91 and 92 (SPECIAL Only) 



6-6 



Primary Input file 



Secondary Input file 



Demand Input tile 



Detail, Total, or Exception _ 
Output file 

Combined Demand Input/ 
Exception Output file 

Combined Primary Input/ 

Exception or Detail Output - 

file 

Combined Secondary Input/ 

Exception or Detail Output 

file 

False file (used only when a 

primary file is not used) 



File Description Specification 





r 




















=ile Type 




Mode of Procassins 


39 






3 

z 

Symbolic w 
Device ' J 

K 

-!7 4a 49 50 51 52 S. 














Extent Exit 
for DAM 




File Addition/Unordered 


r 


Filename 

7 S 9 10 11 12 13 14 


15 




=ile Designation 


IE 

28 


Length of Key Reld or 


Device 

40 41 42 43 44 45 46 


Name of 
Label Exit 


< 

66 


Number of Tracks 


£ 

3 4 5 6 


1 

Sr 

16 
















29 30 




57 




17 










^ 




5J 
1 

31 


Type of File . 
Organization 


Core Index 


6S 69 


-r,„„ - 1 


1 

18 




-lie Format 




Rewind 


3i 

1 

19 


Block 
Length 

20 21 22 23 


Record 
Length 

24 25 26 27 






70 


File 
Condition 


1- 

1 

32 


Overflow Indicate 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 


Continuation Lines 


71 72 73 74 


Option 

54 55 56 57 53 59 


60 61 62 &3 64 65 





2 




1 


I 


P 






F 








mmim 




mwr^ 







3 










[^1 

















4 


p 








































! 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 M ! 












III II 1 1 1 1 1 1 1 1 [ 1 





5 


F 
















IS 






F 




















^ 


jMnnriT 




m^mj^ 







6 








[!ll 















7 








I 




















1 


I 


1 11 ni [11 iirmi M 1 M M m 










1 1 M 1 1 1 1 1 





8 








I 






ID 






F 








j 




g 


Msm 




m^\ii¥ 







9 








[^1 












1 





































1 1 1 1 M M 1 1 1 1 1 1 M M M 1 1! 1 M 














1 1 M M 1 M M II M 



























F 


















tiiEsgnDn eeeshe 














T 

















2 






































1L.1.AL.. _:r__ 














_„.II 1 





3 


















c 


D 






F 




















SQSSDQD 


c 


5 





BR|5 


z 







4 




1 



















5 








































. 1 1 1 j 1 j 1 1 1 1 1 1 1 1 j 1 1 














M 1 II ! 1 1 1 1 





6 


















c 


P 






F 


















m^aim 


z 


S 


u 


im^ 







7 























8 


































1 1 II i 1 i 1 j i M 1 1 M i i i 1 ! 1 1 i 1 1 














1 II II 1 1 M 1 1 1 1 1 1 





9 








i I 






c 


S 






F 




1 












m^sm 


1 


m&mi 




1 







1 


























1 1 






























1 1 1 1 1 1! 1 1 1 1 1 1 1 1 i 1 1 M { 1 M 1 1 














1 |. 1 1 1 1 1 M 1 1 1 1 1 1 


















I 


P 






F 




















^mmm 


. 


mMm 










1. .". 












F 


1 1 1 M 1 1 1 M 1 M 1 '1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 i i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 i 1 1 1 1 1 1 



Zi [i Oi 89 89 £9 99 39 W E9 C9 19 09 eg 8S £9 93 SS W e5 25 IS OS 6fr » £fr 9fr Sfr *t Efr 2» Ifr W 6C 8£ te 9C S£ « ££ ZE IE OE 62 82 iZ K Se K tZ 33 IC Oe 61 81 il 91 SI frl El Zl U 01 6 8 L 9 5 fr E 2 I 



O 



Figure 6-6. Valid IVIetliods of Defining a SPECIAL File for CCP Operations 






Main File Description for SPECIAL 



Page and Line (1-5): See RPG II Reference Manual, 
SC21-7504. 

Form Type (6): The preprinted character F identifies this 
as a file description specification. 



Record Length (24-27): Enter a value equal to the maximum 
size record or message you expect to receive or send, plus 
14. The extra positions are required for the input/output 
parameters and terminal name in the first 14 positions of 
the record area. (Additional information must be provided 
in the record area for certain 3270 Display Format Facility 
operations - see index entry.) For SUBR93, a record 
length of / is suggested. 



Filename (7-14): Enter a name for the CCP SPECIAL 
file. Use this name to refer to the SPECIAL file - not to a 
specific terminal - in subsequent Input, Calculation, and 
Output Specifications. Rules for forming filenames are 
given in the RPG II Reference Manual, SC21-7504. 



Columns 28-39: Leave these columns blank. 



Device (40-46): Enter SPECIAL. 



File Type (15): I, 0, and C are valid entries in this column. 
See combinations on Figure 6-6 for valid File Type/File 
Designation entries. 



File Designation (16): P,S, D, and blank are valid entries 
in this column. See Figure 6-6 for valid combinations of 
File Type/File Designation entries. 



Columns 47-53: Leave these columns blank. 



Name of Label Exit (54-59): Enter SUBR92 for all 
SPECIAL files to be used for communicating with terminals. 
Enter SUBR93 only if you are defining a false file in 
order to bypass RPG II record selection logic when using 
demand files (see Figure 6-6). See Programming Examples 
later in this chapter for an example of using SUBR93. 



End of File (17): E is a valid entry with Input and Combined 
files which are designated as primary or secondary. Leave 
this column blank if you need not process terminal input 
data to End of File. When using a false SPECIAL file, set 
End of File to on during the second and subsequent entries 
to SUBR93. When using a SPECIAL file with SUBR92, you 
must set the End of File condition by issuing the Force 
End of File operation, even though you may have entered 
an E in this column (see CCP Operation Codes, later in 
this chapter, for an explanation of the Force End of File 
operation). 



Columns 60-74: Leave these columns blank. 



Continuation Specification for SPECIAL 

A continuation specification must follow each SPECIAL 
file description, except for a false SPECIAL file. The 
purpose of the continuation line is to associate an array 
with the SPECIAL file, to be used as a parameter list for 
communicating with terminals via the SPECIAL file. 



Sequence (18): See RPG II Reference ManuaL 



Form Type (6): The preprinted character F identifies this 
as a file description specification. 



File Format (19): Enter an F or leave blank (RPG II 
assumes F). Files must be defined as having fixed-length 
records, even though variable length records can be handled 
via the CCP (see Record Length and index entry variable 
length records). 



Columns 7-52: Leave these columns blank. 



Column 53: Enter /C (continuation). 



Block Length (20-23): Enter the same value specified in 
columns 24-27 (record length), or leave these columns blank. 
If you specify a block length greater than record length, 
you will add unnecessary space to your program. Blocking 
is allowed with BSCA terminals (see index entry blocking), 
but is specified during CCP assignment (see TERMATTR 
statement in CCP System Reference Manual). 



Operation (54-59): Enter the name of the array that is to 
be used to pass parameters to the subroutine defined in 
the previous SPECIAL file description. This array must 
be defined in Extension Specifications. 
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DEFINING THE PARAMETER ARRAY 

One Extension Specification must be provided for each 
array associated with a SPECIAL file (SUBR92) in File 
Description Specifications and for each array used with 
EXIT/RLABL (see EXIT/RLABL Communications Inter- 
face). You may use one array for both SPECIAL files and 
EXIT/RLABL processing; EXIT/RLABL subroutines 
SUBR91 disregards the fifth element. 

You can use the same parameter array for more than one 
SPECIAL file. Whether you use the same array or separate 
arrays for different SPECIAL files can be determined by 
which is most convenient for your program. 

You can load the parameter array at compilation time, 
pre-execution time, or during execution (Figure 6-7). Com- 
pilation time arrays are most efficient in terms of the 
amount of RPG II object code generated. You should load 
the array at compilation time or pre-execution time if it is 
to be used with a primary or secondary SPECIAL file, so 
that the proper operation code and maximum input length 
are in the array when the file is read on the first program 
cycle. See RPG II Reference Manual, SC2 1-7504, or RPG 
II Additional Topics, GC21-7567, for a complete descrip- 
tion of loading and defining arrays. 

Note: If the array is a pre-execution time array, the card 
input device or disk file used to load the array is allocated 
to the program until end of job. The card device or disk 
file must be defined on the // PROGRAM assignment 
statement. 

Extension Specifications 



Form Type (6): The preprinted character E identifies this 
as an extension specification. 



Columns 7-10: Leave these columns blank. 

From Filename (1 1-18): If the array is to be loaded at 
pre-execution time, enter the name of the file from which 
it is to be loaded. 

Columns 19-26: Leave these columns blank. 

Array Name (27-32): Enter the name of an array which is 
described on a File Description Continuation Specification 
with a SPECIAL file or which is used as an RLABL follow- 
ing an EXIT operation. Rules for forming array names are 
given in the RPG II Reference Manual , SC21-7504. 



Number of Entries Per Record (33-35): Make an entry in 
these columns only for compilation time and pre-execution 
time arrays. Enter 005 for arrays used with SPECIAL files 
and SUBR92; enter 004 for arrays used only with EXIT/ 
RLABL. When loading an array at compilation time or 
pre-execution time, the entire array must be loaded from 
a single record. An entry is required in these columns when 
using primary or secondary files with SUBR92, since you 
rnust use a compilation time or pre-execution time array to 
provide parameters for the first operation. 



Number of Entries Per Array (36-39): Enter 0005 for 
arrays used with SPECIAL files and SUBR92; enter 0004 
for arrays used only with EXIT/RLABL. 



Page and Line (1-5): See RPG II Reference Manual, 
SC21-7504. 



Length of Entry (40-42): Enter 006, the length of array 
elements. 



Extension Specifications 




Table or 
Array Name 

(Alternating 
Format) 



Length 

of 

Entry 



1 63 64 65 66 67 68 69 70 71 12 73 74 



rTTTTTTT 
Compile time array. 

1 1 M 1 1 1 1 n IT 

Pre-execution time array. 

I I I I II i I II I I I 
Execution time array. 
I I I I I I I I II I I I 



Figure 6-7. Entries Required to Define Parameter Arrays Used with CCP SPECIAL Files and EXIT/RLABL Operations 
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Columns 43-74: Leave these columns blank. Note that 
the array must be defined as alphameric. 



CCP OPERATION CODES 

The RPG II form of the CCP operation codes for SPECIAL 
and EXIT/RLABL communications operations is composed 
of two parts. The rightmost two characters of the operation 
code define the basic operation to be performed. The valid 
RPG II operation code/modifier combinations are summar- 
ized in Appendix D. See Chapter 8: 3270 Disp/ay Format 
Facility for additional operations and operation codes that 
are used only with the DFF. 

The valid CCP operation codes for RPG II are: 

Code Meaning 

00 Shutdown Inquiry 

\iA Get (For Stop Invite Input see 

modifier Code D below) 



AA 
GA 

m 

BB 
DB 
EB 
FB 
CB 
GB 

CC 

m 

tSF 
BF 
CF 



Get and Reverse Interrupt 

Force End of File 

Put 

Put Block 

Copy (DFF only) 

Erase All Unprotected (DFF only) 

Put Block -PR UF 

Put Message 

Put Message - PRUF 

Combined Put (Record)-Then-Get 

Piit (Message)-Then-Get 

Accept Input 

Invite Input 

Put-No-Wait 

Put-No-Wait Block 

Put-No-Wait Message 



Code 
GF 

m 
bii 

Al 

Bl 

bSK 
AK 
BK 
CS 

I4W 



Meaning 

Put-No-Wait Message - PRUF 

Get Terminal Attributes 

Acquire Terminal (with present 
attributes) 

Acquire Terminal (with new 
attributes) 

Acquire a command-mode 
non-DFF terminal 

Release Terminal (and release line) 

Release Terminal (keep line) 

Chain Task Request 

Put (Message) with Invite Input 

Put-No-Wait (Message) with Invite 
Input 



The valid operation modifiers for RPG II are: 

Code Meaning 

$\/t Perform carriage-returns at start of 

data and at end of data for MLTA 
typewriter terminals. (See index 
entries new line and end line) 



\/)A 



m 



Perform a carriage-return at start of 
data, not at end of data. 

Perform a carriage-return at end of 
data, not at start of data. 

Do not perform carriage-return. 

Stop an Invite Input for this terminal. 
This modifier is only valid with the 
Get operation code, that is 'liDliA'. 
(See index entry stop invite input. ) 

Override (modify) format fields (DFF 
only ~ used with operation codes CB, 
GB, CF, GF, CS,andliW). 
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Descriptions of the operations listed above are given under 
Operations in Cliapter 2 and under Display Format Facility 
Operations in Chapter 8, except for the following three 
operations, which are used only with the RPG II SPECIAL 
interface: Force End of File, Put with Invite Input, and 
Put-No-Wait with Invite Input. 



Force End of File (SPECIAL Only) 

When using a primary or secondary SPECIAL file, for 
communications operations, you may need to inform the 
communications service subroutine (SUBR92) when to set 
on an end of file indication in order to cause another 
secondary file to be processed or to cause your RPG II 
program to perform LR logic. To issue a Force End of 
File operation, you need only set the operation code in 
the second array element (if issued as an input operation) 
or in the output record area (if issued as an output operation). 

CCP does not return a return code for this operation. The 
information in the parameter list is not changed by this 
operation. 

Force End of File cannot be issued using EXIT/RLABL and 
cannot be issued to the "False" SPECIAL file (SUBR93). 
The "False" SPECIAL file will be set at end of file after 
the second access of the file. 



The CCP places the return code for this operation in the 
parameter list and sets on indicator 91 or 92 if an error or 
exception condition results from the operation. The return 
code and indicators reflect only the result of the Put portion 
of the operation. If indicator 91 is on after the operation, 
the Invite Input (and Accept Input, if issued) will have 
been ignored and a -91 return code returned to your program. 

When you want to Put a message to a terminal and Invite 
additional input from the terminal, you can save coding 
and possibly save an unnecessary pass through the RPG II 
logic cycle by using Put with Invite Input. 



Put-No-Wait With Invite Input (SPECIAL Only) 

The function and use of Put-No-Wait with Invite Input 
are the same as Put with Invite Input, except that after 
the CCP has accepted the operation, your program does 
not wait for, and does not receive a return code. The 
operation code is 'feStiliW' (WfeSW', if DFF overrides are 
being put). 

If indicator 91 is on after the operation, the Invite Input 
(and Accept Input, if issued) will have been ignored and a 
-91 return code returned to your program. 

PERFORMING CCP OPERATIONS WITH SPECIAL 



Put With Invite Input (SPECIAL Only) 

Put with Invite Input is the equivalent of a Put Message 
operation (treated as Put Record for MLTA terminals) 
followed by Invite Input to the same terminal. This opera- 
tion allows you to issue a Put and an Invite Input via H, D, 
T, or E output specifications in a single operation. To issue 
this operation, place the maximum input length for the 
Invite Input into the fourth element of the parameter array 
(if not there already) and place the following parameters in 
the output record area; 

• Operation code 'liiblCS' ('felHCS', if DFF overrides are 
being put) 

• Output length for the Put 

• Symbolic terminal name 

If Put with Invite Input is being issued at detail output 
time, the operation code for Accept Input CtiD') must be 
placed in the second element of the parameter array prior 
to issuing the Put. This allows the program to accept data at 
the next input time in the RPG II cycle. 



Performing a CCP communications operation using 
SPECIAL involves one or more of the following steps. 
The specific steps required depend on which operation 
is being issued and whether the operation is issued as an 
input operation (primary, secondary, or demand input) 
or an output operation (H, D, T, or E output): 

1 . Set the parameters for the operation in the proper 
location in the parameter array (input) or record 
area (output). 

2. Specify the name of the program for a chain task re- 
quest or the symbolic terminal name for the opera- 
tion, if required, in the parameter array (input) or 
record area (output). 

3. Place any data to be transmitted in the record area 
(output operations). 

4. Issue the operation during output or input time in 
the RPG II program cycle (via Output or Input 
specifications) or, if demand input or exception out- 
put are used, issue a READ or EXCPT operation in 
calculations to perform the operation. 
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5. Check the result of the operation by testing the 
return code and/or using indicators 91 and 92. 

6. Examine and/or process other returned information, 
such as the effective input length (if a data truncated 
return code is received), symbolic terminal name, and 
input data. 

Operations that involve transfer of either input or output 
data are restricted to being issued either as input or output 
operations, since either an input or output record area must 
be provided. The following operations must be issued as 
primary, secondary, or demand input operations via a 
SPECIAL input or combined file: 

• Get 

• Accept Input 

• Stop Invite Input (may result in a Get) 

• Get Attributes 

The following operations must be issued as output opera- 
tions, using H, D, T, or E Output Specifications via a 
SPECIAL output or combined file: 

• Put 

• Put-No-Wait 

• Put with Invite Input 

• Put-No-Wait with Invite Input 

• Copy (OFF) 

• Chain Task Request 

• Erase All Unprotected (OFF) 

The following operations can be issued as either input or 
output operations, since they do not result in transfer of 
data: 

• Acquire Terminal 

• Invite Input 

• Shutdown Inquiry 

• Force End of File 

• Release Terminal 



Of these operations. Acquire Terminal, Invite Input, and 
Shutdown Inquiry are most logically issued as output 
operations; Force End of File is most logically issued as an 
input operation. (See Non-1/0 Operations, later in this 
section.) 

The Put-Then-Get operation, which can be used only with 
combined SPECIAL files, is both an input and output 
operation and requires both an input and an output record 
area (see Put-Then-Get Operation, later in this section). 



Performing COP Operations Using Primary, Secondary, 
or Demand Input 

To cause an operation to be performed during primary, 
secondary, or demand input time in the RPG II program 
cycle, provide an input record area in the appropriate 
format (Figure 6-2 and 6-3) and place the following 
information in the parameter array: 



Operation 



Maximum Input Length 



Symbolic Terminal Name 



When using a primary or secondary SPECIAL file, this 
information must be placed in the array prior to the first 
read from the file. Therefore, you should load the array 
at either compilation time or pre-execution time with the 
appropriate information for the first operation. For sub- 
sequent operations from the file, if any of the array contents 
must be changed, they can be reset in calculations, as shown 
in Figure 6-8. 

In some applications, it is not convenient to perform input 
operations at primary or secondary input time in the RPG 
II cycle. Using a demand file, you have more control over 
when the file is read, since you cause the file to be read 
whenever you issue the READ operation in calculations. 
Therefore, demand files are more flexible for communicat- 
ing interactively with terminals. 
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Figure 6-8. Setting the Parameter Array Contents for a Primary, Secondary, or Demand Input Operation 



If the file is used for a series of operations, you may not 
need to modify all parameter array elements for every 
operation. 



This element of the parameter array is never modified by 
the CCP; therefore, as long as your maximum input length 
remains the same, you need not reset this element. 



Operation Code 

In setting or modifying the operation code, you can avoid 
having an invalid operation code/modifier combination by 
always moving both parts of the operation code into the 
parameter array, as is done in Figure 6-8. (See Put-Then- 
Get Operation, later in this section, for special considera- 
tions.) 



Symbolic Terminal Name 

You must place the symbolic terminal name (or blanks) 
in the fifth array element when you issue one of the 
following operations at primary, secondary, or demand 
input time: 



Get 



Maximum Input Data Length 

For operations that can result in input data being received 
in the input record area (Get, Accept Input, Get Attributes, 
and Stop Invite Input), set the fourth element of the para- 
meter array to indicate the maximum amount of data you 
expect from a terminal, including device control characters 
your program handles (see index entry device control 
characters) and including the 14 characters reserved in the 
record area for CCP use. The maximum number you can 
enter is 4096. 

For the Get Attributes operation, set the value of the 
fourth array element to 35, the length of the attributes 
data (21) plus the required information in the first 14 
positions of the record area. 



• Invite Input 

• Stop Invite Input 

• Get Attributes 

You can use blanks in the fifth array element for these 
operations only in single requesting terminal (SRT) pro- 
grams (see index entry). When you use a blank terminal 
name, the CCP returns the name of the terminal that 
requested the program in the input record area and in the 
parameter array after the operation. 

You need not specify a name for the Accept Input opera- 
tion; however, after the operation, the CCP places the name 
of the program or terminal from which the input data was 
received in the fifth element of the parameter array and in 
the record area. 
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See Put-Then-Get Operation, later in this section, for 
special considerations. 



Testing ttie Return Code 

After any CCP operation, you should test the return code 
to determine the result of the operation, since the result 
may require special actions in your program. If the opera- 
tion resulted in an error condition (negative return code) 
or exception condition (positive return code), you might 
either take specific actions in your program or inform the 
system operator of the condition by issuing a message to 
the console. 

The CCP places the return code for input operations issued 
at primary, secondary, or demand input time in the first 
two positions of the input record area as well as in the 
middle two positions of the first element of the parameter 
array (see Figures 6-1 and 6-2). The return code for the 
last output operation is available in positions 5-6 of the 
first array element and in positions 3-4 of the input record 
area. Also, the CCP sets on indicators 91 and 92 for error 
and exception conditions, respectively (see Indicators 
Reserved for CCP Use). Thus, you can test return codes 
in a variety of ways: 

• Using Calculations to test the contents of the return 
code field in the input record area. 

• Using indicators 91 and 92 to condition operations in 
Calculations and to condition output lines (Figure 6-5). 

• Using record identification codes or field indicators 
on Input Specifications. 

Figure 6-9 shows an example of testing the return code 
for plus, minus, or zero by means of a compare operation 
and resulting indicators. If you wish, you can test for the 
exact return code to determine which exception or error 
condition occurred and take appropriate action. Return 
codes and recommended program actions are summarized 
in Appendix E. 

If indicator 91 is on when any input operation is requested, 
the operation is ignored by SUBR92 and a return code of 
-91 is returned (appears as 9J). This return code may be 
used to prevent blanking out of previous input fields (see 
Figure 6-10). 

Figure 6-10 shows how indicators may be set on for input 
operations with SPECIAL files to indicate record type, 
normal completion, error or exception return code. In this 
example, the record /V/4/W is read with indicator 01 ; the 
record ADR is read with indicator 02. If there is not a 



normal completion of the input operation, indicator 03 is 
on, the return code is moved into a two-character numeric 
field (RTNCOD) for more detailed testing in calculations. 

Special considerations are involved when you use the input 
return code from positions 3 and 4 of the first element of 
the array. If the correct sequence of operations Is not 
followed, the sign of the input return code can be lost. 
The procedure requires that the first element be moved into 
a four-position alphameric field via a MOVEL instruction, 
and that the same four-position field be moved into a two- 
position field via a MOVE instruction. The two-position 
field then contains the input return code with the correct 
sign. 

Although it is possible to do preliminary return code 
checking using the method shown in Figure 6-10, that 
method is not recommended, since it is much easier to 
detect positive and negative return codes using indicators 
91 and 92. 



Examining t/ie Effective Input Length 

On SPECIAL input operations, the CCP returns the effective 
input length in positions 5-8 of the input record area 
(Figure 6-2). This value includes only the actual length 
of data available to your program and does not include the 

14 characters preceding the data in the record area or the 
length of truncated data. The input data begins in position 

15 of the record area. 

After you have issued an input operation, you can examine 
the effective input length, for example, to verify that the 
terminal entered a required number of characters, in order 
to detect erroneous input. You might also use the value of 
the effective input length as the limiting value in a routine 
that scans the input data. 

The effective input length may be equal to or less than the 
maximum input length you specified for the operation, 
depending on the actual amount of data transmitted to 
your program by a terminal. If the terminal transmits more 
data than the maximum you specified, the excess data is 
truncated and your program receives a "data truncated" 
return code. (See index entry data truncated, special use 
in DFF, for a special meaning of the data truncated return 
code.) 

Contents of the effective input length field for each opera- 
tion code and return code is summarized in Appendix E 
(Table E-7). 
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Figure 6-9. Using Calculations to Test the Return Code in the SPECIAL Input Record Area 



Examining a Returned Name 

For the Accept Input operation and for operations issued 
with a blank name field, CCP returns the program name or 
a symbolic terminal name to your program (see index entry 
operations). For all operations issued at primary, second- 
ary, or demand input time, the CCP places this name in 
positions 9-14 of the input record area. You may need to 
examine this name to determine which program or termi- 
nal is communicating with your program. 

For example, in a multiple requesting terminal (MRT) pro- 
gram (see index entry), you should examine the terminal 
name you receive from an Accept Input operation in order 
to determine if the terminal is a new requester or if it is 
already attached to your program. If the terminal is a 
new requester, you might move the terminal name to a 
save area. If the terminal has previously provided input to 
your program, you may need to associate new data with 
data previously received by comparing the terminal name 
with a saved terminal name. Example 2 under Programming 
Examples shows an example of examining the terminal 
name after an Accept Input operation. 

If a program can be requested from both a terminal and an- 
other program using the Chain Task Request operation, you 
may want to determine how the program was requested. 
This can be accomplished by checking for a 14 return code, 
indicating a Chain Task Request operation. This informa- 
tion is useful if a program communicates with the requestor 
since your program cannot communicate with a chain task 
requesting program. 



Performing CCP Operations Using Heading, Detail, Total 
or Exception Output 

When issuing CCP output operations at H, D, T, or E out- 
put time via a SPECIAL output or combined file, you 
must place the operation code, output length, and the 
program or terminal name in the output record area, as 
shown in Figures 6-2 and 6-4. 

The output length for SPECIAL output operations includes 
the 14 positions required in the record area for the opera- 
tion code, output length, and terminal name. This length 
also includes device control characters you are inserting 
yourself and the special information required for certain 
3270 DFF operations. Thus, the value of the highest end 
position used on the Output Specifications should be used 
as the output length. The maximum length is 4096. 

After an operation is performed at H, D, T, or E output 
time, the CCP places the return code in positions 5-6 of the 
first element of the parameter array (Figure 6-1 ). You can 
easily test the return code for a positive or negative value 
by using indicators 91 and 92 (see Indicators Reserved for 
CCP Use, earlier in this chapter). In order to test for a 
specific return code value, however, you must move the 
contents of the first array element to a two-position 
numeric field. Figure 6-11 shows how these methods can 
be used in combination to test the return code. See 
Programming Examples, later in this chapter, for additional 
examples of testing return codes. 
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Figure 6-10. Testing the Return Code on Input Specifications (SPECIAL Input Operation) 



When performing operations via H, D, T, or E output, you 
need only use the parameter list in the following cases: 

• To test the return code in positions 5-6 of the first 
element after the operation. 

• To check the count of outstanding Invite Inputs in the 
third array element after issuing a Release Terminal 
operation at output time. 

• To specify the maximum input length value in the 
fourth element when issuing an Invite Input operation 
at output time (see Non-1/0 Operations, later in this 
section). 



• On SPECIAL output operations issued with a blank 
terminal name (valid for SRT programs only), the CCP 
returns the name of the requesting terminal in the fifth 
element. 

Note: If a valid terminal name is given in the output record 
area for a SPECIAL output operation, any name in the 
fifth element of the parameter array is not modified. 
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Figure 6-11. Example of Return Code Testing After a SPECIAL Output Operation 



Exception Output 

To perform exception output to a specific terminal (via a 
SPECIAL output or combined file), place the appropriate 
operation code, output length, and program or terminal 
name in the output record area (Figure 6-2 and 6-4), and 
issue the EXCPT operation in calculations. If the program 
or terminal name is less than six characters long, it must 
be left-justified and padded with blanks in the name field 
of the output record area. 

Exception output enables you to check the return code in 
calculations immediately after performing the EXCPT 
operation. 
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If you are sending multiple lines of output to one terminal, 
or single lines to more than one terminal during any one 
EXCPT operation, you can check the return code for only 
the last opesration (last line of output). Therefore, it is 
suggested that one output record be sent to only one 
terminal by each EXCPT operation. This can be controlled 
through the use of indicators. 

See Programming Examples, Example 2, later in this 
chapter, for examples of exception output. 



Heading, Detail or Total Output 

In general, using H, D, or T output to issue CCP operations 
is similar to using exception output, in that the operation 
code, output length, and terminal name are placed in the 
output record area rather than in the parameter array and 
several lines of data can be sent to the same or different 
terminals on each program cycle. 



You must be aware that when you send several lines of 
output to the same SPECIAL output file using H, D, or 
T output, the return code in the parameter list applies 
only to the last output line. Therefore, you have no way 
of knowing when an exception condition occurred on 
output lines previous to the last output line. Also, when 
an error occurs, you have no way of knowing on which 
output line the error occurred. 

See Programming Examples, Example 1, and the MRT 
. Programming Example Using the Display Format Facility 
in Chapter 8 for examples of H, u, and T output lines. 



Put-Then-Get Operation 



Combined Demand Input/Exception Output File 
Perform the Put-Then-Get operation as follows: 

1. Place the maximum input length in the parameter 
array. 

2. Place the following information in the output record 
area: 

• Put-Then-Get operation code (positions 1-4) 

• Output length (positions 5-8) 

• Symbolic terminal name (positions 9-14) 

3. Issue an EXCPT operation. 

4. Issue a READ operation. 

After you issue the READ operation, the input data is 
available in the input record area. You need not provide 
a terminal name or operation code in the parameter 
array for the READ, since SUBR92 assumes that the first 
input operation for a combined file following the Put 
part of a Put-Then-Get to the file is the Get part of the 
operation from the same terminal. 

When issuing a Put-Then-Get to a terminal using EXCPT 
and READ, you may do output to other terminals after 
doing the output part of the combined operation. If 
successive Put-Then-Get operations are performed to the 
same or different terminals using the same SPECIAL file 
before doing the input part of the combined operation, 
then only the last output will be sent to the terminal. 

See Programming Examples, Example 2, for an example 
of using READ and EXCPT to issue a Put-Then-Get opera- 
tion. 



The Put-Then-Get operation must be issued with a combined 
SPECIAL file. The operation is not actually performed 
via SUBR92 until the input part of the combined operation 
is performed. 



Combined Primary or Secondary Input/H, D, or T 
Output File 

You can also issue a Put-Then-Get operation using H, D, 
or T output and primary or secondary input with a 
combined SPECIAL file. Place the maximum input length 
in the parameter array for the combined SPECIAL file. 
Place the following information in the output record area: 

• Put-Then-Get operation code (positions 1-4) 

• Output length (positions 5-8) 

• Symbolic terminal name (positions 9-14) 



6-18 



The input data from the Put-Then-Get is available in the 
ihput record area after Primary or Secondary input in the 
RPG II cycle. You need not provide a terminal name or 
operation code parameter array for the input part of the 
combined operation, since SUBR92 assumes that the first 
input from the file is the input part of the operation for the 
same terminal. 

Considerations for performing other output operations after 
the output part of the combined operation and for perform- 
ing successive Put-Then-Get operations are the same as 
described for EXCPT and READ. 



Testing the Return Code After a Put-Then-Get 

The return code from a Put-Then-Get is placed in 
positions 3-4 of the first array element. Positions 5-6 
of the first array element will be zero if the last output 
operation was the Put part of this combined operation. 
If an error condition resulted from the operation (this 
can be determined using indicator 91) you can determine 
whether the error occurred on the Put or on the Get by 
testing the value in the third array element. If this value 
is the same as the output length specified for the Put-Then- 
Gef, then the error occurred on the Put portion of the 
operation (the Get was not performed). If the value of 
the third array element is different from the output 
length specified for the operation, then the error occurred 
on the Get. 



Note Concerning the Use of Put-Then-Get 

The typical use for Put-Then-Get is to issue a message to 
the system operator (CONSOL) and receive instructions. 
In an MRT program, the need to modify the parameter 
list can be minimized by initializing the array for the 
combined file with the 'tiWD' operation code (Accept 
Input), a blank terminal name, and the maximum input 
length used by the program. Thus, when the Put-Then- 
Get operation is issued, the array need not be modified 
in order to continue with normal operation, since the Put- 
Then-Gel: operation code was given in the output record 
area. 



Non-1/0 Operatiohs 

Non-1/0 operations can be issued at either input time 
(primary, secondary, or demand) or at output time (H, 
D, T, or E), since they do not result in transfer of data 
to or from your program. The non-1/0 operations are: 

• Acquire Terminal 

• Release Terminal 

• Invite Input 

• Shutdown Inquiry 

• Force End of File 

When issued via SPECIAL files. Acquire Terminal, Release 
Terminal, Invite Input, and Shutdown Inquiry are most 
logically issued as output operations; Force End of File 
is most logically issued as an input operation. 

When you issue non-(/0 operations at input time using 
SPECIAL files, you must provide a "dummy" input specifi- 
cation to avoid getting an UNIDENTIFIED RECORD 
halt, since RPG II assumes that valid data is contained in 
your input record area after the operation. See Program- 
ming Examples, Example 2, for an example of a "dummy" 
input specification. 

While all of the non-1/0 operations can be issued using 
SPECIAL files, it is also convenient to use EXIT/RLABL 
for these operations, since no input or output record area 
is required and there is no requirement for RPG II to 
move input or output fields. You must be aware, however, 
that using both SPECIAL and EXIT/RLABL for CCP 
operations increases the main storage requirement of your 
program. This can be an important consideration in some 
cases. 
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SUMMARY - PERFORMING CCP OPERATIONS USING RPG II SPECIAL FILES 
(see notes on opposite page) 
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OUTPUT RE 

Operation 
Modifier 


CORD AREA 

Operation 
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1. Output Length 

2. Attributes ID 
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Operations Issued at Input Time 

Information Supplied by Programmer: 
i Place the operation code here before issuing the 

operation. Exception: On a Put-Then-Get operation, 
this element Is disregarded on the Get portion of the 
operation. Upon completion of the operation, this 
element remains unchanged. 

I Place the maximum e;<pected input length here 

before issuing the operation (includes the first 14 
positions in the record area). Upon completion of 
the operation, this element remains unchanged. 



6-20 



I Place the symbolic terminal name here prior to 

^ issuing the operation. Exception: 

1. Accept Input -- contents are ignored by the CCP 

2. Blanks - CCP assumes the requesting terminal 
(SRT programs) 

3. Shutdown Inquiry -- contents are ignored by 
the CCP 

This element is changed after Accept Input or a blank 
terminal name is used. Exception: When a Put-Then- 
Get is issued with a blank terminal name, the name of 
the requesting terminal is returned only in positions 
9-14 of the input record area. 

Information Returned by CCP: 

I 1. Contains the effective input length (not 

^ including the first 14 positions), after an 

input operation (Get, Accept Input, Put-Then- 
Get, Get Terminal Attributes, and Stop Invite 
Input that fails to stop input.) 

2. Contains the count of outstanding Invite Inputs 
when: 

a. A Release Terminal operation is issued 

b. A 08 return code was received 

I Input operation return code. 

4 

I Return code from the last output operation using this 

5 
"^ array. 

I If the 3270 Display Format Facility is used, position 

° 15 contains the AID character, except when data is 
received with the program request on systems without 
Program Request Under Format (PRUF). 



0-1 Place the output length here for output operations 
(include the first 14 positions of the record area). 
Place the attributes identifier here for Acquire termi- 
nal with Set Terminal Attributes modifier. CCP 
ignores the contents of this field for Release Termi- 
nal, Invite Input, Shutdown Inquiry, and Acquire 
Terminal without Set Terminal Attributes modifier. 



Oj Place the requested program name, the symbolic 

terminal name, blanks, or CONSOL here. This entry 
is ignored for Shutdown Inquiry. 

Information Returned by CCP: 

O3 Output operation return code. 

Q. These elements are unchanged after the output 

operation. Place the maximum input length in the 
fourth array element prior to issuing Invite Input, 
Put with Invite Input, Put-No-Wait with Invite Input, 
and Put-Then-Get. 

O5 After the Release Terminal operation, this element 
contains the count of outstanding Invite Inputs. 

Of. CCP returns the symbolic terminal name in this 

element after operations issued with a blank terminal 
name, except Put-Then-Get. On Put-Then-Get opera- 
tions issued with a blank terminal name, CCP returns 
the symbolic terminal name in positions 9-14 of the 
input record area after the Get portion of the opera- 
tion is performed. 

O7 If the Display Format Facility is used, positions 1 5-20 
contain the format name for the Put Message operation; 
position 15 contains the Write Control Character 
for the Put Overrides operation. 



After an Accept Input operation, Put-Then-Get 
operation, or an operation issued with a blank 
terminal name, the CCP returns a symbolic terminal 
name or for an Accept Input in a program loaded by 
a Chain Task Request, the name of the program that 
issued the Chain Task Request operation in these 
positions. 



Operations Issued at Output Time 

Information Supplied by Programmer: 
Place the operation code here prior to issuing the 
operation. 



EXIT/RLABL COMIVIUNICATIONS INTERFACE 

All of the CCP operations described under Operations in 
Chapter 2 can be performed using EXIT/RLABL. CCP 
provides four subroutines for use with EXIT: SUBR91, 
which can be used for all communications operations in- 
cluding task chain request operations; SUBR90, which can 
be used to move fields to or from a record area; SUBR87, 
which is used to issue Chain Task Request operations only; 
and SUBR88, which is used to accept both program request 
and chain task data. SUBR87 andSUBR88are best suited 
for programs that are primarily used for task chaining 
operations. 



Note: You must not use SPECIAL subroutines SUBR92 
and SUBR93 with EXIT/RLABL. 
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Parameter Array 

As with the SPECIAL interface, you must place the para- 
meters for an operation in a parameter array. The format 
of the parameter array for EXIT/RLABL (Figure 6-12) is 
the same as for SPECIAL, except as follows: 

• CCP always places the return code from an operation 
in positions 5-6 of the first array element, not in the 
record area. 

• The program name or the symbolic terminal name is 
always in the record area. Therefore, you may define 
an array of four elements if you are using the array only 
for EXIT/RLABL. You can use the same array for both 
SPECIAL and EXIT/RLABL if the array has five 
elements. 

The Extension Specifications for defining parameter arrays 
are described in Defining ttie Parameter Array, previously 
in this chapter. 



Record Area 

The record area for communications operations using 
EXIT/RLABL must be defined by an RLABL in calcula- 
tions (see EXIT to SUBR91). The record area (Figure 
6-13) consists of the name field and a data area. Note 
that the format is different from the record area for 
SPECIAL. 



The first RLABL is the name of an array (ARY, for 
example) which is used as a parameter list by SUBR91 . It 
may be the same array as used for a SPECIAL file, except 
that the fifth element is not used. See Defining tite 
Parameter Array, earlier in this chapter. 

The second RLABL is the record area. The first six posi- 
tions of this area must contain the program name or the 
symbolic terminal name for which an operation is intended, 
followed immediately by the data to be sent or received 
to or from a terminal. Since this data may consist of 
many fields, the CCP provides another EXIT subroutine, 
SUBR90, to move fields to or from the record area (see 
EXITtoSUBR90). 

The size of the record area should be large enough to con- 
tain the maximum amount of data to be sent or received 
plus the six characters for the name field. If the largest 
amount of data to be sent or received is greater than 256 
(including the name field, then an array must be defined 
for this area, since the maximum size of an RPG II alpha 
field is 256. Thus, if 800 characters are needed (for 
example with a 3270 Display) plus the symbolic name 
(a total of 806), an array could be defined containing four 
elements of 202 characters each. This would create a 
contiguous area of core of 808 bytes, which is large 
enough. If an array is defined as the record area for 
EXIT/RLABL linkage, the second RLABL must be a 
reference to the first element of the array: 

RPG CALCULATION SPECIFICATIONS 



EXIT to SUBR91 

The linkage to SUBR91 to perform a CCP operation in- 
volves an EXIT operation followed by two RLABLs, as 
follows: 

RPG CALCULATION SPECIFICATIONS 
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Array 

Element Positions Used 

(11- not used) 



© 



© C 



© 



© 



Contents 



• Return code — two 
decimal cliaracters 
returned by CCP fol- 
lowing operation (zero, 
positive, or negative). 

■ « Operation code — two 
alphameric characters. 

• Operation modifier — 
two alphameric charac- 
ters (optional). 



Output data length — 
up to four decimal 
characters (output 
operations). 
Effective input data 
length - up to four 
decimal characters 
(returned by CCP on 
input operations. 
Count of outstanding 
Invite Inputs— a four 
digit-decimal number 
(returned by CCP on 
release terminal oper- 
ations and when a 08 
return occurs on input 
operations. 
Terminal attributes 
identifier — up to four 
decimal characters 
(acquire terminal op- 
eration only). 



L 



Maximum input data 
length — up to four 
decimal characters. 



Figure 6-12. RPG II Parameter Array for EXIT/RLABL 



Name Field 



Data 



i 



1 6 • 7 n 

(4096 maximum, including the terminal name) 

Figure 6-13. Record Area Format for EXIT/RLABL CCP Interface 



Setting the Parameters for an Operation 

Issuing a non-1/0 operation (such as Release Terminal) in- 
volves simply setting the contents of the parameter array 
with MOVE instructions and placing the terminal name 
in the record area. Since only the terminal name is required 
in the record area for non-1/0 operations, you can issue 
the operation as shown in the following example, specifying 
a field that contains the terminal name as the second 
RLABL. 
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If, however, you are issuing an operation that involves a 
number of fields of input or output data, you will need 
to use SUBR90 to move fields to or from the record area, 
since there is no facility In RPG II Calculations to move 
fields to or from various section of another data field. (A 
series of MOVE or MOVEL operations could be used to 
move a small number of fields.) 



Exit to SUBR90 

You must prepare the record area before doing an output 
operation using SUBR91. Therefore, you must move fields 
into this area of storage before requesting the I/O opera- 
tion. For input operations, you are presented with a mass 
of data from which you must extract specific fields. When 
you use SPECIAL file processing, the input and output 
specifications provide this capability. However, in RPG II 
Calculations there is no facility for selecting fields from 
various sections of another data field. Thus, SUBR90 is 
provided to serve this purpose. 

Figure 6-14 illustrates the coding required to link to SUBR90. 
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RPG CALCULATION SPECIFICATIONS 
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length you desire. 
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Figure 6-14. Coding Required to Use SUBR90 



The first four RLABL's following an EXIT to SUBR90 
provide information to SUBR90 about the fields to be 
moved. 

Q The first RLABL is an indicator. If you "set on" 
this indicator prior to exiting to SUBR90, the sub- 
routine moves the data from the fields specified in 
subsequent RLABL's Q to the record area. If the 
indicHtor is off when control is given to the routine, 
data is moved from the record area to the fields 
specified. 

Q The second RLABL is a field which must contain 
either the total length of data to be moved, if 
moving data to the output area, or the total length 
of the record area, if moving data from the input 
area to fields. The total length of all the fields which 
are to be moved from or to the record area must be 
less than or equal to the value contained in the field 
named by this RLABL. 



B The third RLABL must name the data area used with 
SUBR91. If the data area is larger than 256, an alpha 
array may be defined which is at least as large as the 
data area needed. In this case, the third RLABL 
passed to SUBR90 should be the first element of the 
array (indexed by the integer 1). 

Q The fourth RLABL must name a field which contains 
the number of fields to be moved to or from the data 
area. It also defines the number of RLABL's which 
follow the fourth RLABL. 

Q The fifth and succeeding RLABL's name the fields 
which are to be moved to or from the data area. 
These names may refer to fields, or an array indexed 
by a constant. The RLABL's may not name an array 
without an index. Fields are moved into the data area 
in the order you specify them as RLABL's; therefore, 
the fifth RLABL must identify a six-position terminal 
name field as the first field in the record area. There 
must be a character-for-character correspondence 
between the "from" and "to" fields; if blanks are to 
occur in the data area, fields containing blanks must 
be provided in the list of RLABL's. 
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Alphameric and Numeric Fields 



Exit to SUBR87 and SUBR88 



Alphameric and numeric fields are properly left-justified 
or right-justified by your RPG II program prior to being 
moved to the record area by SUBR90 (SUBR90 treats 
all fields as alphameric fields). On input operations, how- 
ever, the terminal operator must know whether he should 
enter data into a field left-justified (alphameric) or right- 
justified{ numeric). These instructions may have been 
given previously to the terminal operator by means of a 
published procedure, preprinted typewriter form, or a 
display format (3270). If not, your program should put 
out a format to the terminal before any data is requested 
from the terminal to indicate to the operator where the 
data should appear in the record and how fields should be 
justified. For batch terminals, such as other central process- 
ing units, this step is unnecessary, since the communicating 
programs will be written to expect data in a certain format. 



Editing with SUBR90 



SUBR87, an entry in SUBR88, is used to issue Chain Task 
Request operations from RPG II programs. SUBR88 is 
used to accept both program-request and chain-task data 
by RPG II programs. 

Unlike SUBR91, SUBR87 and SUBR88 do not require a 
parameter list; instead, you specify two RLABLs. The 
first RLABL specifies an output data length (for SUBR87) 
or an input data length (for SUBR88). The second RLABL 
specifies the record area that consists of a name field and 
a data area. The name field is six characters long. When 
using SUBR87, you must place the name of the program 
to be requested, left-justified and padded with blanks if 
not six characters long, in the name field. When using 
SUBR88 to accept task chaining data, SUBR88 places the 
name of the program that requested the task chain into 
the name field before returning control to the chained 
routine. The data field is used to pass data between 
programs. 



The standard RPG II editing facilities available with the 
SPECIAL file interface to the CCP are not available with 
the EXIT/RLABL interface. Therefore, SPECIAL is 
recommended if edited fields are to be used. 

If editing must be performed when using SUBR90, either 
you must provide coding in your program to insert and 
remove editing characters or edit characters must be shown 
on preprinted fields at the terminal. For 3270 terminals, edit 
characters may be placed on the display as part of a display 
format. 

If the 3270 Display Format Facility is used, negative 
integer numeric fields (no decimal positions) are automati- 
cally converted so that the minus sign is printed to the right 
of the value in the field. Likewise, on input operation, the 
field is automatically converted by 3270 DFF to its internal 
negative form (D zone in the right-most position of the 
field ~ see negative numbers in the RPG II Reference 
Manual). 



SUBR87 and SUBR88 set on indicator 91 if the accept 
operation resulted in a negative return code, and indicator 
92 if the operation resulted in a positive return code other 
than a 14 return code. The 14 return code indicates a 
successful accept operation of the chain request data. 

Figure 6-15 shows an example program (PGM1) that uses 
SUBR87 to issue a chain request and an example program 
(PGM2) that uses SUBR88 to accept the task chain data. 
SUBR93 is used in both examples to bypass the record 
selection in the RPG II program cycle. Input and output 
occurs in calculations using SUBR87 and SUBR88. 



RPG II 6-25 



If the Overlay Linkage Editor is entered directly from the 
RPG II Compiler, and the program being compiled con- 
tains exits to SUBR87 but does not contain at least one 
exit to SUBR88, a halt (EO 'P 25) will occur. This halt 
occurs because the linkage editor cannot resolve internal 
entry points of subroutines (see the IBM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561 for addi- 
tional information on the linkage editor). One method to 
avoid this halt is to code a dummy exit to SUBR88 as 
shown in the following example: 

EXIT SUBR87 
RLABL LEN 
RLABL DAREA 
GOTO BYPASS 
EXIT SUBR88 
BYPASS TAG 

Another method to avoid this halt is to compile the pro- 
gram and place the non-link-edited program in a library 
(see object output in the IBM System/3 RPG II Reference 
Manual. SC21-7504, for additional information). Then 
call the linkage editor ($OLINK). The OCLfor this pro- 
cedure is shown in the following example: 



// CALL 

//COIMPILE 

//RUN 

// CALL 

//RUN 

//INCLUDE 

//INCLUDE 

//INCLUDE 

// END 



RPG,R1 
SOURCE-rpgchn,OBJECT-nn,UNIT-nn 

0LINK,R1 

NAME-rpgchn,UNIT-nn 
NAME-SUB R88,UNIT-nn 
NAME-SUBR93,UNIT-nn 



Setting the Parameters for EXIT/RLABL Operations 

All parameters for CCP operations are placed in the para- 
meter array. The program name or the symbolic terminal 
name is always placed in the record area (see EXIT to 
SUBR91). 



Operation Code 

In setting the operation code, you can avoid having an 
invalid operation/modifier combination by always moving 
both parts of the operation code into the second array 
element. The valid operation and modifier codes are given 
in CCP Operation Codes, earlier in this chapter. 



Output Length 

For EXIT/RLABL output operations, place the length of 
the output data in the third array element. The output 
length includes device control characters which you are 
inserting into the data in your program (see index entry 
Device Control Characters). The output length should 
not include the six characters for the program name or 
the symbolic terminal name. 

The maximum output length you can specify is 4090. See 
RPG II Programming Considerations, later in this chapter, 
for information about using the third array element with 
the Acquire Terminal operation. 



Maximum Input Length 



Notes: 

1 . Rpgchn is the name of the program containing the task 
chain exit. 

2. The Fl LE statements are handled by default in the 
example. 

3. /^ with SUBR91, SUBR93 must be included as a 
dummy input file when using SUBR88. 



The maximum input length in the fourth array element for 
an EXIT/RLABL operation must not include the six 
characters for the program name or the symbolic terminal 
name, but must include the length of any device control 
characters you are handling in your program. You must 
enter a maximum input length for the following operations: 

• Get 



• Invite Input 

• Put-Then-Get 

• Get Attributes 

If you also specify a maximum input length for the Accept 
Input operation, it will override the length given for the 
Invite Input operation. For the Get Attributes operation, 
set the value of the fourth array element to 21 . 
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PGM1 



File Description Specification 
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Figure 6-15 {Part 1 of 2). Coding for SUBR87 and SUBR88 
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PGM2 



File Description Specification 
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Examining Returned Information 



Symbolic Terminal Name 



After you have issued a CCP operation using EXIT/RLABL, 
you should examine information returned to your program 
by the CCP: 

• Return Code (/Vote: Indicators 91 and 92 are not 
reserved or used with SUBR91.) 

• Effective input length (if an input operation was 
performed) 

• The program name or the symbolic terminal name (if it 
was set by the CCP, such as for an Accept Input opera- 
tion or a Put issued with a blank terminal name) 



Testing the Return Code 

After an EXIT/RLABL operation, the CCP places the 
return code in positions 5-6 of first parameter array element. 
Figure 6-16 shows an example of testing the return code 
for plus, minus, or zero by means of a compare operation 
and resulting indicators. In this example, a subroutine that 
checks for specific return codes is executed when a positive 
or negative return code is encountered after a Stop Invite 
Input operation. Before checking the return code after an 
EXIT/RLABL operation, you must move the return code 
from the first array element to a 2-position numeric field. 



On EXIT/RLABL operations for which the CCP returns a 
terminal name (see index entry Operations), you may need 
to examine or otherwise use the terminal name (for example, 
to associate the input data with data previously received 
from the same terminal). The CCP places the returned 
symbolic terminal name in the first six positions of the 
record area. 

See Programming Examples, Example 2, later in this chapter, 
for examples of saving and examining terminal names in an 
MRT program. 

3270 DISPLAY FORMAT FACI LITY 

You can use the 3270 Display Format Facility (DFF) of 
the CCP to aid you in formatting and using the 3270 
terminal. Chapter 8. 3270 Display Format Facility describes 
the programming requirements that are unique to using the 
DFF, including the unique DFF operations, additional 
information that must be placed in the record area for 
certain operations, field types that are unique to the 3270, 
and other information. 

You can compare the programming necessary to use the 3270 
without DFF to programming with the DFF by comparing 
Example 1 \in6GT Programming Examples, later in this 
chapter, to the example in Chapter 8. 



Note: Notice the use of a MOVEL instruction to move the 
terminal name from the field TNAME to the first six 
positions of the record area, INREC. This technique is 
useful when the record area consists of the symbolic 
terminal name and a single field (in this case assume the 
input record is a single 10-character field). 



RPG II PROGRAMMING CONSIDERATIONS 

This section contains some reminders, suggestions, and 
restrictions pertaining to writing RPG II programs to 
run under the CCP. 



Examining the Effective Input Length 

After operations that return input data to your program, 
you may need to know the actual length of input data 
returned to your program, that is, the effective input 
length, This value does not include the six characters for 
the program name or the symbolic terminal name and 
does not include the length of truncated data when a 
terminal sends more data than you specified in your maxi- 
mum input length for the operation. Special considerations 
are involved when you use the 3270 Display Format 
Facility (DFF) input operations; see 3270 Display Opera- 
tions. 

In order to use the effective input length, you must first 
move the contents of the third array element to a numeric 
field. 



Data Mode Escape and Release Terminal Operation 

If data mode escape is allowed in your CCP system (speci- 
fied by the ESCAPE keyword in the $EFAC generation 
statement-see CCP System Reference Manual) you must 
include coding in your program to test for the 08 return 
code (terminal has entered data mode escape and released 
itself from your program). When the CCP returns a 08 re- 
turn code after an input operation (Accept Input, Get, or 
Stop Invite Input), a count of outstanding Invite Input 
operations is returned in the third element of the parameter 
array (effective input length). In an MRT program, you 
should check this count to determine how many terminals 
are still attached to your program. If you do not check this 
count, you might do an Accept Input operation without 
having an outstanding Invite Input, causing the CCP to 
cancel your program (unless it is a never-ending program— 
see index entry). 
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Figure 6-16. Checking the Return Code After an EXIT/RLABL Operation 



Following a Release Terminal operation in an MRT program, 
the CCP also returns a count of outstanding Invite Input 
operations In the third array element. You should check 
this count to avoid doing an Accept Input operation without 
an outstanding Invite Input. (The Release Terminal 
operation always returns a 00 return code.) 



You must be sure to specify the correct communications 
service subroutines for SPECIAL and EXIT/RLABL. For 
example, if you mistakenly use SUBR91 with SPECIAL, 
the results are unpredictable. 



Multiple Output Lines 



Using Both SPECIAL and EXIT/RLABL 

You should be aware that when you use both SPECIAL 
and EXIT/RLABL for CCP operations you are adding 
additional code to your program, since at least two sub- 
routines must be included. Therefore, if you are concerned 
about the size of your program, you can reduce its size by 
using only one of these methods of performing CCP 
operations. 



When sending multiple H, D, or T output lines in a single 
program cycle or when sending multiple output lines with 
a single EXCPT operation, you should condition the output 
lines with indicator N91 so that you can react to output 
errors when they occur. However, even if you use this 
technique. It is difficult to determine which output lines 
were or were not successfully sent in this case. 
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End of File with SUBR92 



Specific Restrictions 



Remember, when using SPECIAL files witli SUBR92 you 
will never get end of file on a SPECIAL file unless you 
issue the Force End of File operation to the file (see CCP 
operation codes, earlier in this chapter). Therefore, the 
end of file indicator in positions 58-59 of the Calculation 
specification for the READ operation is meaningless unless 
Force End of File is used. 



Host/Subfiost Communications 

Considerations for communicating with host and subhost 
systems via BSCA are given in Appendix A . 



Communicating With the Console 

You can communicate with the system operator console 
only by means of Put and Put-Then-Get operations. The 
symbolic terminal name for the console is CONSOL. 

You cannot issue an Acquire Terminal operation to the 
console (there is no need, since any program can communi- 
cate with the console at any time). 

You cannot communicate with the system operator console 
by specifying CONSOLE (Model 10 Disk System and Model 
12) or CRT77 (Model 15) as the device in columns 40-46 
of File Description Specifications. 

Master Index 

CCP builds an in-storage index based on either the 
MSTRINDX or MIXSIZE keyword of the DISKFILE 
assignment statement (see CCP System Reference Manual) . 
Specify a master index for disk files in the application pro- 
gram as follows: 

• On a Model 10 or 12, specify at least one master index 
entry (key length plus 2) in the application program to 
make use of a master track index. This improves per- 
formance for large index files. 

• On a Model 15, a master index entry is not required in 
the application program to make use of the master track 
index. 

Disk File Usage 

You should be aware of how other programs running under 
the CCP are using disk files that you also use in your pro- 
gram, especially if records are being added to the files. 
See index entry disk file considerations for detailed in- 
formation. 



• Do not use multivolume files (columns 68-69 of the 
File Description Specifications /r7usf6e6/a/7/r). 

• Do not use magnetic tape files. 

• Do not use look-ahead fields. 

• Do not describe a SPECIAL file for CCP operations as 
a table file. 

• Do not use the RPG II inquiry feature. 

• (Model 10 and Model 12 CCP) Do not use RPG II halt 
indicators. If programs running under the CCP issue 
halts, they will be cancelled. 



PROGRAMMING EXAMPLES 

The following programming examples are explained in this 
section. 

Example 7-an RPG II program that supports a single 
requesting 3270 without using the Display Format Facility. 

Example 2-an RPG II program that supports multiple 
requesting terminals. 

See Chapter 8 for examples of RPG II programs that use 
the 3270 Display Format Facility. 



Before attempting to use these examples, you should read 
and understand the description of the RPG II CCP 
interface in this chapter. 



Example 1 

Figures 6-1 7, 6-18, and 6-1 9 show the flowcharts, messages, 
and listing for a single requesting terminal (SRT) RPG II 
program (see index entry SRT program). This program 
transmits two messages to a 3270 Model 1 Display System 
(480 character screen). The first message from the program 
requests the terminal operator to enter a room number. The 
program uses the room number entered by the terminal 
operator as the relative record number to access a disk file 
whose records contain guest and rate information about 
the room. This information is then formatted and dis- 
played as the second message transmitted to the 3270 
terminal. The program then goes to end of job. Figure 6-17 
also shows how these messages appear on the 3270 terminal. 
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Because this program is a single requesting terminal (SRT) 
program (see index entry), it can receive data from and 
transmit data to only one 3270 terminal. However, 
multiple copies of this program could be in main storage 
at the same time (if the system has sufficient main storage), 
each communicating with a different 3270 Display System. 
(If multiple copies are in core at the same time, the disl< 
file must be specified as sharable during the Assignment 
stage-see index entry disk file sharing.) 



Formatting the Messages for the 3270 Display 

Because this sample program does not use the Display 
Format Facility, this sample program must provide for- 
matting control characters for the display screen in the 
data portion of the record area and transmit them as part 
of the messages to be displayed. Figure 6-19 shows the 
messages and the 3270 control commands and orders as 
they are transmitted to the 3270. See IBM 3270 Informa- 
tion Display System Component Description, GA27-3004, 
for a description of 3270 system components, concepts, 
control commands, and orders. 

The printable format characters are set by defining them 
as part of the message in the RPG II Output Specifications 
definition. 

The unprintable format characters (hexadecimal values that 
have no corresponding printable character in.96-column 
card code) are in a pre-execution time array (ORDERS) 
that was loaded by a previous RPG II program (see comments 
in File Description Specifications). Elements of the 
ORDERS array are then used in appropriate positions in 
the output messages. 



Notes Concerning this Sample Program 

• Message Mode was defined during CCP assignment for 
the 3270 terminal used by this program. (See 
TERM ATTR statement in CCP System Reference 
Manual.) This eliminates the need to do repetitive 
input operations until EOT is received. 

• To run this program using a terminal other than the 3270, 
you must remove all coding dependent on the 3270. 
This includes all screen formatting specifications and 
3270 screen control characters within the data. 



• This program specifies a Put with Invite Input operation 
using a blank terminal name as the first operation (1 P 
output time in the RPG II program cycle). In an SRT 
program such as this, the blank terminal name refers 

to the current requester of the program. The name of 
the requester is received in the TNAME field of the 
input record area after the Accept Input operation. 

• To keep this sample program simple, return code checking 
is kept to a minimum. You should do more return code 
checking in your application programs. For example, 
when you issue Accept Input you should check for the 
Shutdown Requested return code (04). Also, if data 
mode escape is allowed in the CCP system, programs 
should check for return code 08. It is recommended that 
each installation design its own return code checking 
and/or console communication routines so that a satis- 
factory standard is established for the installation that 
can be used in all application programs. 

• This program does not check the length of the input 
data because the terminal operator is requested to 
enter a three-digit room number. However, you may 
want to check the input data length in your application 
programs. 

• Since there are only two different screen formats used 
by this program, they are both contained within the 
program.. For more complete applications, you might 
store the screen formats on disk and read them when 
they are needed by your program. 

• You could also use the Get Attributes operation in this 
program. For example, if you do not know whether 
the 3270 Model 1 or the 3270 Model 2 will request the 
program, you can issue a Get Attributes operation to 
find out which type of terminal requested the program. 

• If this program were coded and specified as a multiple 
requesting terminal (MRT) program with a MRTMAX=1 
keyword on the PROGRAM assignment statement (see 
CCP System Reference Manual), multiple copies of the 
program would not be allowed in main storage at the 
same time. As the program is written, multiple copies 
could be in main storage at the same time and the disk 
file must be specified as sharable (FILES keyword of 
PROGRAM assignment statement). 



• This program will not accept data with the program 
request. 
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Issue Put with Invite Input operation 
to send the initial message to the 
requesting terminal. 



Accept Input (Room #) from 
requesting terminal. 




No 



AID= \^ No 
Enter? 



Read disk record. (Room # is 
relative record number.) 



Issue a Put-No-Wait (message) to 
display room #, rate, name, and 
address. 



c 



ENTER ROOM #009 



I E^ 



ENTER ROOM #009 
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NAME -JOHN DOE 
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END OF JOB 



:) 



Figure 6-117. Pro-am Logic of Example 1 (RPG II SRT Program) 
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Figure 6-18. Message Formats for Example 1 (RPG II SRT Program) 
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ANY OTHER AID CHARACTER OR NON-ZERO 



0307 I*RETURN CODE ON INPUT CAUSES THIS PROGRAM TO GO TO END OF JOB. 



0021 


0401 OC 




91 










0022 


04011C0R 




92 










0023 


04012COR 




02 


SETON 






LR 


0024 


0402 C 




LR 


GOTO END 








0025 


0403 C 




OIROOM 


COMP 1 






LR 


0026 


0405 C 




LR 


GOTO END 








0027 


0406 C 




OIROOH 


COMP 10 






LR 


0028 


0408 C 




LR 


GOTO END 








0029 


0409 C 




OIROOM 


CHAIN6UEST 








0030 


04100C 




05 


SETON 






LR 


0031 


0411 C 




03 


SETON 






LR04 


0032 


04111C 




03 


SETOF 






9291 


0033 


0412 C 




END 


TAG 










050100*FORMAT 


THE SCREEN 


FOR DATA ENTRY. 








0034 


050110TP0UT 
0502 




H 11 










0035 




14 


• 


• 


0036 


0503 








4 


• S> 




0037 


050310 








8 


«40' 




0038 


0504 






ORDR.l 


15 








0505 0* HEX' 


'27 


< - ESCAPE 


CHAR 








0039 


0506 








16 


'5' 






0507 0* HEX' 


'F5 


• - ERASE/WRITE 








0040 


0508 D 








17 


•G' 






0509 0* HEX' 


'07 


■ - WRITE CONTROL CHAR I SOUND 


ALARM, 


pRESTORE 



BAD AID.RTN COD 
ROOM * ENTERED') 



0041 

0042 

0043 
0044 

0045 

0046 

0047 

0048 
0049 

0050 
0051 
0052 
0053 
0054 
0055 

0056 
0057 
0058 



0510 0* RESET MODIFIED DATA TAGS) 

0511 ORDR, 2 18 

0512 0* HEX'll' - SET BUFFER ADDRESS COMMAND 



0513 

0514 0* HEX'4040' ROWl COLl 3270 MOO 1 
0513 

0601 0R0R,3 

0602 0*HEX'1D'-START OF FIELD 

0603 



20 



32 'ENTER ROOM #• 
33 



34 



0604 0* HEX •C9' -UNPROTECTED ALPHAMERIC INTENSIFIED 



ORDR, 4 



0605 

0606 0* HEX'i3"-INSERT CURSOR 

0607 

0608 0* AREA FOR ROOM NUMBER 

0609 

0610 

0611 0* PROTECT REMAINDER OF SCREEN 

0701 T LR 04 

0702 
070210 

0703 

0706 

0707 
070710*WRITE ONLY 

0708 
07 09 
0710 



35 



38 



ORDR, 3 


39 






40 


•0' 


;reen 








4 


'CF' 




8 


•138' 


TNAME 


14 




0RDR,1 


15 






16 


•1' 




17 


•G" 


ORDR, 2 


18 






20 


. Y- 



In this example, the same array Is 
used for the input and output 
SPECIAL files since it is convenient 
and saves space in the program. 

, The parameter array is a compila 
time array in this example, so the 
array contents are set when IP out- 
put is performed (see the first 
message). 

. At input time in the program cycle 
an Accept Input is issued. The 
invite Input has been issued at IP 
output time. 



The program expects a room number 
between 1 and 10. If a different 
number is entered, the program does 
not attempt to access the GUEST 
file for rate, name, and address. 
Only the room number is printed on 
the T output line. If the operator 
enters an incorrect room number 
such as 11616, the room number is 
displayed as 100. 

A Put with Invite Input operation 
with a blank terminal name issued at 
IP output time sends the initial 
message to the terminal and invites 
input from the terminal. The maxi- 
mum input length (25) for the Invite 
Input is in the parameter array. 
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0711 


0* 


3270 Ml 


ADDRESS 


R0W2 


COLl 






0059 


0712 













29 


■ROOM 


0060 


0712 











GROOM 


32 




0061 


0711 











0RDR,2 


33 




0062 


0715 













35 


•AE' 




0716 


0* 


3270 Ml 


AOORESS 


R0W3 


COLl 






0063 


0801 













iiZ 


•RATE 


006^. 


0802 











GRATE 3 


'.S 


•$' 


0065 


0803 











0RDR|2 


49 




0066 


080*. 













51 


•A8' 




08 05 


a* 


3270 Ml 


ADDRESS 


R0W4 


CCtl 






0067 


0806 













58 


•NAME 


0068 


0807 


Q 








GNAME 


78 




0069 


08 08 











CRDR,2 


79 




0070 


0809 













81 


'B-' 




0810 


0* 


3270 Ml 


ADDRESS 


ROWS 


COLl 






0071 


0811 













88 


•ACCR 


0072 


0812 


Q 








GAOORl 


108 




0073 


0813 


G 








0R0R,2 


109 




007A 


081'. 













111 


•CH' 




081!> 


0* 


3270 Ml 


ADDRESS 


R0W6 


COLl 






0075 


0901 













118 


•ADOR 


0076 


0902 











GADDR2 


138 






090:> 


0** E'MO 1 


DF PROG ■■ 


»« 









25 



INDICATORS USED 

LR IP 01 02 03 0* 05 91 92 

<G 314 UNREFERENCED TABLE/ARRAV NAMES 
STMT# NAME 
0007 lARR 



EXECUTION TIME TABLES AND ARRAYS 

STMT* TABLE/ DEC ENTRY NUMBER OF DTT T/A 

DEFINED ARRAY POS LENGTH ENTRIES DISP DISP 

0008 ORDR 001 OOOO* 0100 0000 



IG 314 UNREFERENCED FIELD NAMES 


STMT* NAME 








0010 EFL 








FIELD NAMES 


USED 






STMT* NAME 


DEC 


LGIH 


DISP 


0011 TNAME 




006 


0009 


0012 ROOM 





003 


0048 


0015 GROOM 




003 


OOOC 


0016 GRATE 


2 


004 


004F 


0017 GNAME 




020 


0020 


0018 GAOORl 




020 


0034 


0019 GADDR2 




020 


0048 



LABELS USED 
STMT# NAME TYPE 
0033 END TAG 

COMPILE TIME TABLES AND ARRAYS 

STMT* TABLE/ DEC ENTRY NUMBER OF DTT T/A 

DEFINED ARRAY POS LENGTH ENTRIES DISP DISP 

0007 lARR 006 0005 0000 OOOD 



lARR 



D 25 

END OF TABLE/ARRAY - LAST ENTRY MAS BLANK 



OOlllO 



ERROR NUMBER 
RG 097 
R6 097 
RG 558 



STATEMENT NUMBER 
0014 
0020 
0029 



IG 

IG 



ERROR SEVERITY 

097 M 

314 M 

392 M 

558 M 



TEXT 
NO FIELDS DESCRIBED FOR THIS OR PREVIOUS RECORD. 
FIELD, TABLE OR ARRAY NAME DEFINED BUT NEVER USED. 
LAST ENTRY IN ONE OR MORE COMPILE TIME TABLE/ARRAYS WAS BLANK. 
INVALID USE OF, OR MISSING, RESULTING INDICATORS WITH THIS OP CODE. 
INVALID RESULTING INDICATORS BLANK. 



ASSUME 



Figure 6-19 (Part 2 of 2). Example 1 — RPG II SRT Program 
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Example 2 

Figures 6-20, 6-21 and 6-22 show the flowchart, input/ 
output messages, and listing for a sample RPG II multiple 
requesting terminal (MRT) program designed to run under 
the CCP (see index entry MRT program). This program 
handles up to four MLTA requ'esting terminals. The terminal 
operator enters a seven-digit number preceded by a -h, -, or 
N. The CCP transmits this signed number to the RPG II 
program. The RPG II program: 

• Adds the number to the value in the accumulator 
associated with the terminal that transmitted the data 
if the first position is -i-. 

• Subtracts the number from the accumulator if the first 
position is -. 

• Releases the terminal if the first position is N. 



If a value was either added or subtracted, the new value 
accumulated for the terminal is inserted into the message 
CURRENT VAL = sxxxxxxxxxx ENTER DATA and the 
message is sent to the terminal. 

This sample program also checks for several error con- 
ditions and transmits the appropriate error message to the 
terminal requesting the operation. 

This sample program is not designed to show the most 
effective way of performing operations. Instead, it shows a 
variety of ways to do things. It uses a variety of operation 
codes that show how data can be associated with a terminal 
by defining a save area for the terminal names and accumu- 
lated data. It frequently checks return codes; but you can 
do even more return code checking if you wish. Data 
entered by the terminal operator must be fixed length. To 
allow variable length input fields, you could include a 
subroutine in your program to check the effective input 
length returned in the parameter list and align the data 
correctly. This program communicates with the console 
in addition to the requesting terminals. 
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( 


A1 




START ) 


\ 


( 


B1 


\ 




1 . Set up parameter 
list for Accept 
Input 

2. Accept Input 




CI 






3A3 




Return code 
checker routine 



■0 



Shutdown 
request 



J1 



Operator = N 




Yes 




Yes 




Yes 



Positive returns ^. Yes 
code (i^O) 





Add terminal to 
attached list 




Set canceled 
switch 



6 



H2 



1 . Set up Put-No- 
Wait (message) 

2. Initiate Put 




Yes 







B4 

1. Check input 
length = 8 

2. Check valid 
operator 

3. Check valid data 




C5 



1 . Set up Put-No- 
Wait (message) 

2. InitiatePut 



Find proper 
accumulator 



E4 




Add or subtract 
input to 
accumulator 




F5 



1. Move "-" to out- 
put area 

2. Make unit position 
printable 



1. Set up Put, Wait 
message 

2. Put message 



Return code"***. No 
= 




^ 



1. Set up Invite Input 

2. Invite input 



© 



Figure 6-20 (Part 1 of 3). Program Logic of Example 2 (RPG II MRT Program) 
6-38 



-TOutput Error 






— •I Release Terminal 



Yes ^^ Terminal 



1. Set up Release 
Terminal op. 

2, Release terminal 




H2 



Yes 



"f End of job j 



1. Clear terminal 
name entry in 
attached list 

2. Clear accumulator 



llBlJ 



-Tlnput TP Error 




1. Set up Put-No- 
Wait (message) 

2. Issue Put 



^ 



Console Routine 

F4 

( ENTER J 



G4 



1 . Set up Put-Then 
Get to console 

2. Issue Put-Then- 
Get 




Set on release 

terminal 

indicator 



Figure 6-'20 (Part 2 of 3). Program Logic of Example 2 (RPG II MRT Program) 
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Shutdowin Routine 

A1 

CEED 



B1 



Set N = 1 



CI 



Check entry N in 
attached list 




Yes 



1. 

2. 


Set up Stop Invite 
Stop Invite 


F1 




3A3 1 




Return 
checker 


code 
routine 




Yes 



1. Set up Put, No 
Walt message 

2. Issue shutdown 
message 



Return Code Checker Routine 

A3 




B4 



Set on 
indicator 



Set on 
indicator 
(TP error) 





Set on invalid 
data indicator 



E3 



= 4 



Set on shutdown 
indicator 





Set on terminal 

canceled 

indicator 



Set on Stop Invite 

successful 

indicator 



H4 



( RETURN j 



Figure 6-20 (Part 3 of 3). Program Logic of Example 2 (RPG II MRT Program) 
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Input Data Entered by Terminal Operator 



1 2 3 4 5 6| 7 8 

SXWxIxlJ^XK 


9 


10 


11 12 







































A fixed lengtli numeric field where S is at a +, -, or N and 
X is a numeric digit. All eight positions must be entered, 
except when N is entered in the first position. 



Data Entered by System Operator on 5471 Printer/Keyboard (Models 10 and 12) or CRT/Keyboard (Model 1«i) 



V 


2 


3 


4 


5 


6 


8 


9 


10 


,1 


12 


T 


^ 




















c 


c 

































































In response to the messages INPUT TP ERROR TNAME-cccccc and 
OUTPUT TP ERROR TNAME-cccccc to the console, the system 
operator replies TA if he wants to Try Again. Any other reply (cc) 
causes the terminal to be released. 



Output to the Console 



1 


2 


3 


■1 


5 


6 


7|8 9 to 


11 


12|,3 


,4 


15 16 


17 


IS 


19 


20 21 


22 23 24 25 


26 


27 


28 


29 


30 


J 


N 


P 


U 


T 






T 


P 




e 


R 


R 





*1 




T 


A^E 


*". 


c 

C 


b 


c^ 


d 


c 


ti 




- 
































T 


. 


















3 





T 


P 


tu 


T 




T 


P 




E 


R 


fl 


o 


P 




AME 


c 


c 


c 


c 


c 




































































































1 









































These messages are transmitted 
to the console (cccccc = terminal 
name). 



Output to Terminal 



Cur 


4 5 6 


7 8 9 

r V 


10 n 12 13 

AL=S 


14 IQ 16 17 

xxxx 


IB 13 21 

XX; 


J 21 2 

<X) 


2 23 2 


4 25 ? 


R 27 23 2 


a 30 31 3 


2 33 . 

IT/ 


a 35 36 37 38 39 






















r?y 


AG^ 


UN 


INV 


DAr 


fti 


fi-l 


■- 


■- 


















EBRtt 


"Ti 


4-UL 






TRY 


A&/ 


UN 


TP 


R r 




■— P 


___ 




Tr 
































CCF 


sti-\ 


rPK 


N LA 


ST R 
ST R 


£C- 




Tf 


' I 


:Rm 


JR ^ 


• 








ec: 

£C- 










rA , 
<x>. 


"<, 


-4^~ 


CCP 


SH- 


■DW 


A LA 




5/ 


\o 


DA- 








Aj LA 


ST R 




«l< 


(X3 

) i 


<vfy) 


'Ss 


1 **^ 


CCP 


S«l 


rDw 














ST R 


£C 


. 






\ 




CCP 


SHI 


rou 


rJ LA 


)AT(' 


V 




V ^ 






















\ 




\ 
























\ 


^ 



Transmitted with value 
in accumulator associated 
with the terminal. 

Issued if data is invalid 

Issued if system operator replies TA 
(Negative return code on Accept Input) 

Issued for negative return code on 
Stop Invite Input 

Issued for positive return code other 
than 10 on Stop Invite Input 



Issued for return code of on 
Stop Invite Input 

Issued for return code of 10 on 
Stop Invite Input 



Figure 6-21. Input and Output Message Formats for Example 2 (RPG II MRT Program) 
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OIOIOH R 't MRRPGl 

0001 OZOIOFDUMMY IP 11 SPECIAL SUBR93 MRRPGl 

0002 02020FTPCONSIOCO 52 52 SPECIAL SUBR92 MRRPGl 

0003 02030F KTPRY MRRPGl 
000* 03010E TPSY 5 6 CCP PARM LIST MRRPGl 

0005 03020E ATRY * 6 ATTACHD TERM LISTMRRPGl 

0006 03030E ACMY ^^ 10 ACCUMULATOR LIST MRRPGl 

0007 04010IOUMMY AA 01 MRRPGl 
0*0201* DUMMY SPEC FOR PRIMARY FILE (RPG REQUIRES A PRIMARY FILE) MRRPGl 

0006 04030ITPC0NSI0BB 02 MRRPGl 

0009 040*01 1 20RETCD0 MRRPGl 

0010 0*0501 5 BOEFFL MRRPGl 

0011 0*0601 9 1* TNAME MRRPGl 

0012 040701 15 15 OPRATR MRRPGl 

0013 0*0801 16 220TPIPT MRRPGl 
001* 0*0901 15 17 CONSIP MRRPGl 

05010C*** CHECK THE 3RD ELEMENT OF THE PARAMETER ARRY TO DETERMINE IF MRRPGl 
O5O20C** IF ANY MORE TERMINALS TO BE SERVICED. IF NOT GO TO EOJ. MRRPGl 

0015 05030C ACPIPT TAG MRRPGl 

0016 05040C 09 MRRPGl 

0017 05050COR 13TPRY,3 COMP ■ 0000' LR NO MDR IF MRRPGl 

0018 05060C LR GOTO END GO TO EJ MRRPGl 

0019 05070C OIN SUB N N iO CLEAR INDEX MRRPGl 

0020 05080C 01 MOVE • □" TPRY.2 AGP IPT OP CODMRRPGl 

0021 OS090C 01 MOVE ■22" TPRY,* MAX XPECT LEN MRRPGl 
05 lOOC ******************************************************************** MRRPGl 
05110C* MRRPGl 
05120C* ACCEPT INPUT MRRPGl 
05130C* MRRPGl 
05 1*0C******************************************************************** MRRPGl 

0022 05150C 01 READ TPCONSIO ACCEPT INPUT MRRPGl 
05 160C ****************************** **************************************MRRP61 
05170C* MRRPGl 
05180C* GO TO RETURN CODE CHECKER ROUTINE MRRPGl 
05190C* MRRPGl 
05200C ******************************************************************** MRRPGl 

0023 06010C 02 EXSR RETCHK CHECK R,TN CODE MRRPGl 
06020C*»******************************************************************MRRPG1 
06030C* MRRPGl 
060*0C* IF SHUTDOWN REOUEST RETCOD = 0*,IND ON IS 06 MRRPGl 
06050C* MRRPGl 
05060C*******************«************************************************MRRPG1 

002* 06070C 06 GOTO SHTDWN SHUTDOWN CODE MRRPGl 

06080C **************************************** ****************************MRRPG1 
06090C* MRRPGl 

06100C* ROUTINE TO DETERMINE IF TNAME IS AN ATTACHED TEHINAL MRRPGl 

06110C* IF ATTACHED IND 12 IS ON, IF NOT IND 13 IS ON MRRPGl 

05120C* MRRPGl 

06 130C ******************************************************************** MRRPGl 

MRRPGl 
N ADD TO INDEX MRRPGl 

12NAME FOUND MRRPGl 
MRRPGl 
13NAME NOT IN LSTMRRPGl 
KEEP LOOKING MRRPGl 
062 OOC ******************* *************************************************MRRPG1 
07010C* MRRPGl 

O7020C* TERMINAL NOT ATTACHED AND CANCELED MRRPGl 

07030C* MRRPGl 

070*0C *************************** *****************************************MRRPG1 
0031 07050C 09 13 GOTO ACJ'IPT TERM CANCELLED MRRPGl 

07060C**********************»*»*******************************************MRRPG1 
07070C* MRRPGl 

07080C* IF TERMINAL NOT ATTACHED AND NOT CANCELED MRRPGl 

07090C* ADO TERMINAL TO ATTACHED LIST MRRPGl 

07100C* MRRPGl 

07 HOC *************************************** ************'^'^'^'^'^*''"*'^'*'*******MRRPG1 

Figure 6-22 (Part 1 of 6). Example 2 - RPG II MRT Program 



0025 


061*OC 




LUPl 


TAG 




0026 


06150C 


01 


N 


ADD 


1 


0027 


06160C 


01 


ATRY.N 


COMP 


TNAME 


0028 


06170C 


01 12 




GOTO 


GOl 


0029 


06180C 


01 


N 


COMP 


* 


0030 


06190C 


01N13 




GOTO 


LUPl 
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0032 


07120C 


13 


N 


SUB 


N 


N 


CLEAR INDEX MRRPGl 


0033 


07130C 




LUP2 


TAG 






MRRPGl 


003't 


07140C 


13 


N 


ADD 


1 


N 


ADD TO INDEX MRRPGl 


0035 


07150C 


13 


ATRY.N 


COMP 


1 


1 


14THIS NTRY AVAILMRRPGl 


0036 


07160C 


UNl'f 




GOTO 


LUP2 




NO TRY AGAIN MRRPGl 


0037 


07170C 


13 1* 




MOVE 


TNAME 


ATRY.N 


YES ENTER NAME MRRPGl 


0038 


07180C 


13 




GDTC 


602 




MRRPGl 



07190C********************************************************************MRRPG1 
07200C* MRRPGl 

08010C* IF TERMINAL WAS IN THE ATTACHED LIST AND RETURN CODE MRRPGl 

08020C* IS CANCEL, GO TO RELEASE TERMINAL ROUTIN MRRPGl 

0B030C* MRRPGl 

080*00 ******************************************»********************»*»**MRRPG1 
0039 08050C GDI TAG MRRPGl 

00<hO 08060C 12 09 GOTO RELEAS CLEAR TERM MRRPGl 

OaO70C************«************************************************»******MRRPGl 
08080C* MRRPGl 

08090C* IF NEGATIVE RETURN COOE-INO ON IS 03, GO TO MRRPGl 

08100C* INPUT TP ERROR ROUTINE MRRPGl 

08110C* MRRPGl 

08120C**********************************************************«******»**MRRPGl 

0041 08130C GD2 TAG MRRPGl 

0042 08140C 03 GOTO IPTER NEG RET CODE MRRPGl 
08150C********************************************************************MRRPG1 
0B160C* MRRPGl 
08170C* IF POSITIVE RETURN COOECGREATER THAN ZERO) BUT MRRPGl 
08180C* NOT EQUAL TO 10 GO TO INVALID DATA ROUTINE MRRPGl 
08190C* MRRPGl 
08200C******************************************#***4!***:*************4<****MRRPG1 

00*^3 09010C 07 GOTO INVDAT INV DATA ROUTINMRRPGl 

09020C********** + *******************************!******************:* + **!(c***Mf^RPGl 
09030C* MRRPGl 

09040C* IF RETURN CODE=0,IND 04 IS ON AND IF MRRPGl 

09050C* DPERATOR=N,GO TO RELAEASE TERMINAL ROUTINE MRRPGl 

09060C* MRRPGl 

0044 09080C 04 OPRATR COMP 'N' 13ANY MORE DATA MRRPGl 

0045 09090C 04 13 GOTD RELEAS NO, RELEASE MRRPGl 
091 DOC ******************************************************************** MRRPGl 
09110C* 1 CHECK INPUT LENGTH = 6, IF NOT 8 TURN IND 07 ON MRRPGl 
09120C* 2 CHECK VALID OPERATOR ,IF OPERATOR IS + TURN IND MRRPGl 
09130C* 14 ON, IF OPERATOR IS - TURN ON IND 15, IF OPERATOR MRRPGl 
09140C* S IS ANY OTHER VALUE TURN ON IND 07 MRRPGl 
09150C* 3 CHECK VALID DATA IF NOT VALID TURN IND 07 ON MRRPGl 
09 160C ******************************************************************** MRRPGl 

COMP 8 0707 LEN XACTLY 8 MRRPGl 

GOTO INVDAT MRRPGl 

COMP '+' 151514IS ADD WANTED MRRPGl 

COMP •-• 070715IS SUBTRACT MRRPGl 

COMP . 07 VALID NUMBER MRRPGl 

10030C* MRRPGl 

10040C* IF lUPUT IS NOT VALID GO TO INVALID DATA ROUTINE MRRPGl 

10050C* MRRPGl 

0051 10070C 04 07 GOTO INVDAT MRRPGl 

10090C* MRRPGl 

lOlOOC* 1 FIND PROPER ACCUMULATOR MRRPGl 

lOllOC* 2 ADO OR SUBTRACT INPUT TO ACCUMULATOR MRRPGl 

10120C* MRRPGl 

10130C********************************************************************MRRPG1 

0052 10140C 04 14 ACMY,N ADD TPIPT ACMY.N ADD TO ACMLATR MRRPGl 

0053 10150C 04 15 ACMY, N SUB TPIPT ACMY,N SUB FROM ACMLTRMRRPGl 
lOlbOC*******************************>l'************************************HRRPGl 
10170C* MRRPGl 
10180C* DETERMINE IF THE ACCUMULATOR IS NEGATIVE-LESS THAN 0- MRRPGl 
10190C* TURN ON IND 16 WHICH ALLOWS A MINUS SIGN TO MRRPGl 
10200C* OVERRIDE THE PLUS SIGN ON OUTPUT SPECIFICATION MRRPGl 
IIOIOC* MRRPGl 
1102 0C*******************************************»************************MRRPG1 

0054 11030C 04ACMY,N COMP 16 RESULT NEG MRRPGl 
11040C**********************************#****#****************************MRRPG1 
11050C* MRRPGl 



0046 


09170C 


04 


EFFL 


0047 


09180C 


07 




0048 


09190C 


04 


QPRATR 


0049 


09200C 


04 15 


OPRATR 


0050 


lOOlOC 


04N07 


TPIPT 



Figure 6-22 (Part 2 of 6). Example 2 - RPG II MRT Program 
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11060C* MRRPGl 

1 10 70C ********** *********'************************'*************************MRRPG1 

0055 11080C OPTPUT TAG MRRPGl 

0056 11090C 18 SETOF 18 MRRPGl 

0057 lllOOC 0*^ MOVE '52' TPRY,3 OUT LBH MRRPGl 

0058 UUOC 0'. EXCPT SEND CURNT VAL MRRPGl 
11 120C********************************************************************'^'^'* '**''• 
1U30C* MRRPGl 
lU^OC* MRRPGl 
111S0C********************************************************************'^'"*PG1 

0059 11160C 91 GOTO OPTERR NO GO TO ER RTNMRRPGl 
m70Q *****«******»*****<>*********»»»»***»******♦********** *************»*MRRPG1 
11180C* MRRPGl 
11190C** IF SUCCESSFUL DO INVITE INPUT FOR THIS TERM AND THEN GO TO ACCEPTMRRPGl 
11200C** INPUT FROM ANY ONE MRRPGl 
12010C* MRRPGl 
12020C********************************************************************'^'*'"'''^ 

0060 12030C INVIT TAG MRRPGl 

0061 12040C 01 MOVE ' E- TPRY,2 INVITE OP CODE MRRPGl 

0062 12050C 01 MOVE '22' TPRY.^. XPECTED MAX LENMRRPGl 

0063 12060C 01 EXIT SUBR91 INVITE WITHOUT MRRPGl 
006* 12070C RLABL TPRY SPECIAL MRRPGl 

0065 12080C RLABL TMAME MRRPGl 
12090C******************»*************************************************^'*'*''^1 
12100C* MRRPGl 
12110C**ONLY NAME AND LENGTH NEEDED FOR INVITE. THIS COULD HAVE BEEN DONE MRRPGl 
12120C**VIA EXCPT. IF SO SUBR91 WOULD NOT HAVE BEEN NEEDED. MRRPGl 
12130C* MRRPGl 
12 l^iOC********************************************************************'^ '*'*'* ''1 

0066 12150C 01 GOTO ACPIPT GO ACCEPT INPUTMRRPGl 
12160C********************************************************************^'*'*''^'' 
12170C* MRRPGl 
12180C*****END OF MAIN LINE. SPECIAL ROUTINES FOLLOW. MRRPGl 
12190C* MRRPGl 

1 2 200C ******************************************************************** '^ I* '"''''■ 
13010C* MRRPGl 
13020C** INPUT ERROR ROUTI NE ( I PTER I -MI NUS RETURN CODE. ENTERED ON INOICA- MRRPGl 
13030C** TOR 03 MRRPGl 
13040C** SUBROUTINE MRRPGl 
13050C* MRRPGl 
13060C ***************************************************** ***************MRRPG1 

0057 13070C IPTER TAG MRRPGl 

0058 13080C 03 EXSR CONSB TALK TO OPERATRMRRPGl 

0069 13090C 13 GOTO RELEAS UPON RETURN 13 MRRPGl 
13100C********************************************************************'^'^'^P'^J- 
13110C* MRRPGl 
13120C*MEANS RELEASE THIS TERMINAL. NOT 13 SAYS SEND MESSAGE AND INVITE. MRRPGl 
13130C* MRRPGl 

13 140 C*** ************************************************** ***************MRRPG1 

0070 13150C 18 MOVE •36" TPRY, 3 OUT LEN MRRPGl 

0071 13160C 18 EXCPT SEND MSG MRRPGl 
13170C********************************************************************MRRPG1 
13180C* MRRPGl 
13190C* SINCE MOWAIT WAS SPECIFIED NO RETURN CODE IS AVAILABLE TO CHECK. MRRPGl 
13200C* MRRPGl 
1*0 IOC ************************************************** ******************MRRPG1 

0072 l<t020C 18 SETOF 18 MRRPGl 

0073 l't030C 03 G3T0 INVIT MRRPGl 
1<.0*OC** END OF IPTER MRRPGl 
1A050C********************************************************************MRRPG1 
14060C* MRRPGl 
1*070C** OUTPUT ERROR ROUT I NE ( OPTERR ) -NON RET CODE MRRPGl 
14080C* MRRPGl 
l<j090C *********************************** *********************************MRRPG1 

007* 1*100C OPTERR TAG MRRPGl 

0075 1*110C 01 SETON 17 MRRPGl 

0076 1*120C 17 EXSR CONSB TALK TO OPERATRMRRPGl 

0077 1*130C 17 SETOF 17 MRRPGl 

0078 1<.1<.0C 13 GOTO RELEAS 13,RELS TERM MRRPGl 

0079 14150C 01 GOTO OPTPUT TRY AGAIN MRRPGl 
1*150C** END OF OPTERR MRRPGl 
1*170C*****+**************************************************************MRRPG1 
l*ieOC* MRRPGl 
1*190C** INVALID DATA ROUT I NE ( I NVDAT ) - I NPUT LEN NOT 81INVALID OPERATOR, MRRPGl 
1*200C** (NOT N, <-, -I , INVALID DIGITS ENTERED, ETC MRRPGl 
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0060 
0081 
0082 
0083 
008* 
0065 



0086 
0087 



0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 



15010C* 

15020C*********************************** 
15030C INVDAT TAG 



MRRPGl 
«#t*****»t»*t*«t*t***»*«»*«*«****MRRPGl 

MRRPGl 



15040C 07 SETON 

15050C 07 MOVE '36' 

15060C 07 EXCPT 

15070C 07 SETOF 

15080C 07 GOTO INVIT 

15090C* 

15100C* 

15110C** END QF INVDAT ROUTINE 

15120C*********************************** 

15130C* 

15140C**RELEASE TERMINAL ROUT I NE ( RELE AS ) 

15150C**LIST AND ACCUMULATOR LIST ENTRIES 

15160C* 

15 170C *********♦+*****♦♦**♦♦*♦♦*****♦♦*** 



TPRY,3 



18 



16 



OUT LEN 18 
TELL TERMINAL 



MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 



RELEAS 



TAG 

GOTO RELCLR 



15180C 

15190C 09 

15200C* 

16010C* NOTE 09 MEANS A TERMINAL ATTACHED 

15020C* COMMAND INTERRUPT MODE AND ENTERE 

16030C* 

160'. OC 

16050C 

16060C 

16070C 

16080C 

1609GC 09 

16100C0R 

16110C 09 

16120C0R 

16130C 09 

161'(0C0R 



13 
13 



13 



13 



MOVE ' K' 

EXIT SUBR91 

RLABL 

RLABL 

TAG 

MOVE ' 



TO THIS PROGRAM HAS ENTERED 
D THE RELEASE COMMAND. 



TPRY,2 



MOVE '000000' ACMY.N 



GOTO ACPIPT 



16150C*********************************** 

16160C* 

16170C**SHUTDOWN ROUTINE (SHTDWN) 04 RET 

16180C**SHUTDOWN MESSAGE TO ALL ATTACHED 

16190C* 

16200C ************* ********************** 



0099 


17010C 


0100 


17020C 


0101 


17030C 


0102 


17040C 


0103 


17050C 


0104 


17060C 


0105 


17070C 


0106 


17080C 


0107 


1T090C 


0108 


17100C 


0109 


17110C 


0110 


17120C 


0111 


17130C 


0112 


17140C 


0113 


17150C 



SHTDWN 


TAG 






06 


SETON 






SHDUNO 


TAG 






UN 


ADD 1 


N 




IIATRY.N 


COMP ' • 








GOTO SHDHNl 








MOVE ATRY.N 


TPRY, 


i5 




HOVE ' A' 


TPRY, 


r2 




MOVE '22' 


TPRY, 


,4 




READ TPCONSIO 








EXSR RETCHK 








GOTO SHDWNl 








MOVE '48' 


TPRYi 


,3 




EXCPT 






SHDWNl 


TAG 







INVITE MORE 

INPUT FROM THISMRRPGl 

TERMINAL MRRPGl 

MRRPGl 

**:*!*******♦*♦**♦#«*** ************MRRPG1 

MRRPGl 

RELEASES TERMS. CLEARS ATTACHED MRRPGl 
AND DETERMINES WHEN TO GO TO EOJMRRPGl 

MRRPGl 

MRRPGl 
CLEAR LISTS MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
REL TERM OP COOMRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
CLEAR THIS NTRYMRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 

MRRPGl 
CODE. ISSUES STOP INVITES AND MRRPGl 
TERMS BEFORE GOING TO EOJ MRRPGl 

MRRPGl 

MRRPGl 
IISHUTDOWN IND MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 
MRRPGl 



TPRY 
TNAME 



ATRY.N 



ADD TO INDEX 

19TERMINAL HERE 

NO CHECK NEXT 

TNAME TO ARY 

STOP INVITE 

MAX XPECTO LEN MRRPGl 

MRRPGl 

CHECK TRN CODE MRRPGl 

TERM CANCELLED MRRPGl 

OUT LEN MRRPGl 

APPROPRIATE MSGMRRPGl 

MRRPGl 



Note: When the last terminal attached to an MRT program is processed, issue a Release 
Terminal operation to that terminal in order to check the count of outstanding Invite 
Inputs. If the count is greater than zero, the program can issue an Accept Input operation. 
For example, suppose an MRT program is servicing the maximum number of requestors 
and one or more additional requests are queued to the program. If the program receives 
a shutdown-requested return code (04) and goes to end of job without checking the 
count of outstanding Invite Inputs, the program terminates with a 2C termination code 
(going to end of job with outstanding Invite Inputs) and each of the queued terminals 
receives an S06 message (program cancelled — shutdown). 
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0114 


17160C 




UN 


CDMP 4 






LRDONE 




MRRPGl 


0115 


17170C 




NLR 


GOTO SHDWNO 






NO, NEXT TERM 


MRRPGl 


0116 


17180C 




LR 


GOTO END 






YES, 


EOJ 


MRRPGl 


0117 


17190C 




END 


TAG 










MRRPGl 




17200C********************************************************************MRRPG1 




18010C* 
















MRRPGl 




18020C** 


RETURN CODE CHECKING ROUTI NE ( RETCHK ) 






MRRPGl 




18030C* 
















MRRPGl 




1 8 040C ******************************************************************** MRRPGl 


0118 


18050CSR 




RETCHK 


BEGSR 










MRRPGl 


0119 


18060CSR 




01 


SETOF 




060708 




MRRPGl 


0120 


18070CSR 




01 


SETOF 




0910 




MRRPGl 


0121 


18080CSR 




OIRETCOD 


COMP 00 




050304 




MRRPGl 


0122 


18090CSR 




03 












MRRPGl 


0123 


18100C0R 




04 


GOTO ENDRET 










MRRPGl 


012'» 


18110CSR 




05RETCGD 


COMP 04 




0B0706SHUT 


DOWN 


MRRPGl 


0125 


18120CSR 




06 












MRRPGl 


0126 


18130COR 




07 


GOTO ENDRET 










MRRPGl 


0127 


18140CSR 




08RETC0D 


COMP 08 






09TERM 


CANCELLED 


MRRPGl 


0128 


18150CSR 




N09RETCQD 


COMP 10 






lOSTOP 


INVITE OKMRRPGl 


0129 


18160CSR 




N09 












MRRPGl 


0130 


18170C0R 


NIO 


SETON 






07CATCHALL 


MRRPGl 


0131 


18180CSR 




EMDRET 


TAG 










MRRPGl 


0132 


18190CSR 






ENDSR 










MRRPGl 




18200C**END 


OF RETCHK 












MRRPGl 




190 IOC ******************************************************************** MRRPGl 




19020C* 
















MRRPGl 




19030C** 


CONSOLE I/O ROUTINE. 










MRRPGl 




19040C* 
















MRRPGl 




1 9 050C ******************************************************************** MRRPGl 


0133 


19060CSR 




CONSB 


BEGSR 










MRRPGl 


D13'> 


19070CSR 




01 


MOVE TNAME 


SAVE 6 


SAVE 


TNAME 


MRRPGl 


0135 


19080CSR 




91 


SETON 




81 


CONSLO EXCPT 


MRRPGl 


0136 


19090CSR 




91 


SETOF 




91 


CLEAR NEG RETCDMRRPGl 


0137 


19100CSR 




01 


MOVE ■47' 


TPRY,3 


OUT 


LEN 


MRRPGl 


0138 


19110CSR 




01 


MOVE '16' 


TPRY,4 


MAX 


INPUT LEN 


MRRPGl 


0139 


19120CSR 




01 


EXCPT 






PUT 


CONSOLE 


MRRPGl 


0140 


19130CSR 




01 


READ TPCONSIO 






GET 


CONSOLE 


MRRPGl 


0141 


19140CSR 




01 


MOVE SAVE 


TNAME 


RESTORE TNAME 


MRRPGl 


0142 


19150CSR 




01C0N5IP 


COMP -TA' 




131318D0ES 


OPERATOR 


-MRRPGl 


0143 


19160CSR 




81 


SETOF 




81 






MRRPGl 


0144 


19170CSR 




CONSE 


ENDSR 






WANT 


TO 


MRRPGl 




19180C**END 


OF CONSB SUBROUTINE 






TRY 


AGAIN 


MRRPGl 


0145 


200100TPCONSIOE 


81 










MRRPGl 


0146 


200200 






TPRy,3 


08 








MRRPGl 


0147 


200300 








04 


•c 






MRRPGl 


0148 


200400 








14 


■CONSOL' 






MRRPGl 


0149 


200500 






03 


40 


• INPUT TP ERROR TNAME- ' 


MRRPGl 


0150 


200600 






17 


40 


■OUTPUT TP ERROR TNAME-' 


MRRPGl 


0151 


200700 






TNAME 


47 








MRRPGl 


0152 


200800 




E 


18 










MRRPGl 


0153 


200900 






TPRY,3 


08 








MRRPGl 


0154 


201000 








04 


"CF- 






MRRPGl 


0155 


201100 






TNAME 


14 








MRRPGl 


0156 


201200 








36 


'TRY AGAIN" 






MRRPGl 


0157 


201300 






07 


26 


' INV DATA' 






MRRPGl 


0158 


201400 






03 


26 


•TP ERROR' 






MRRPGl 


0159 


201500 




E 04N17N07 










MRRPGl 


0160 


201600 






TPRY,3 


08 








MRRPGl 


0161 


201700 








04 


•CB' 






MRRPGl 


0162 


201800 






TNAME 


14 








MRRPGl 


0163 


201900 








30 


•CURRENT VAL- 


-• 




MRRPGl 


0164 


202000 








31 


' +• 






MRRPGl 


0165 


210100 




16 




31 


1 _ 1 






MRRPGl 


0166 


210200 








52 


'ENTER DATA' 






MRRPGl 


0167 


210300 






ACMY,N3 


41 








MRRPGl 


0168 


210400 




E 11 












MRRPGl 


0169 


210500 






TPRY,3 


OB 








MRRPGl 


0170 


210600 








4 


'CF' 






MRRPGl 


0171 


210700 






ATRY.N 


14 








MRRPGl 


0172 


210800 








28 


'CCP SHTOWN' 






MRRPGl 


0173 


210900 








38 


•LAST REC-' 






MRRPGl 


0174 


211000 






03 


48 


'TP ERROR' 






MRRPGl 


0175 


211100 






07 


48 


•BAD DATA^ 






MRRPGl 


0176 


211200 






040PRATR 


41 








MRRPGl 


0177 


211300 






04TPIPT 


48 








MRRPGl 


0178 


211400 






10 


48 


■ NO DATA' 






MRRPGl 




211500* END 


OF PROG 












MRRPGl 
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INDICATORS USED 

LR 01 02 03 04 05 06 07 08 09 10 11 12 13 l^t 15 16 17 18 19 81 91 

EXECUTION TIME TABLES AND ARRAYS 



STMT# 


TABLE/ DEC ENTRY NUMBER OF 


DTT 


T/A 


DEFINED ARRAY POS LENGTH 


ENTRIES 


DISP 


DISP 


0004 


TPRY 




006 


00005 


0100 


0020 


0005 


ATRY 




006 


00004 


0108 


0046 


0006 


ACMY 





010 


00004 


Olio 


0009 


FIELD NAMES 


USED 










STMT# 


NAME 


DEC LGTH 


DISP 








0009 


RETCQD 


002 


006F 








0010 


EFFL 


004 


0073 








0011 


TNAME 


006 


0063 








0012 


OPRATR 


001 


0064 








0013 


TPIPT 


007 


007A 








0014 


CONS IP 


003 


0067 








0019 


N 


001 


007B 








0134 


SAVE 


006 


006D 








LABELS USED 












STMT# 


NAME 


TYPE 










0015 


ACPIPT 


TAG 










0025 


LUPl 


TAG 










0033 


LUP2 


TAG 










0039 


GOl 


TAG 










0041 


G02 


TAG 










0055 


OPTPUT 


TAG 










0060 


INVIT 


TAG 










0067 


IPTER 


TAG 










0074 


OPTERR 


TAG 










0080 


INVDAT 


TAG 










0086 


RELEAS 


TAG 










0092 


RELCLR 


TAG 










0099 


SHTDWN 


TAG 










0101 


SHDWNO 


TAG 










0113 


SHDWNl 


TAG 










0117 


END 


TAG 










0118 


RETCHK 


BEGSR 










0131 


ENDRET 


TAG 










0133 


CONSB 


BEGSR 










0144 


CQNSE 


ENDSR 










ERROR NUMBER 


i STATEMENT NUMBER 






RG 


097 


0008 








RG 


558 


0022 








RG 


558 


0108 








RG 


558 


0140 









ERROR SEVERITY TEXT 

*G 097 M NO FIELDS DESCRIBED FOR THIS OR PREVIOUS RECORD. 

*G 558 W INVALID USE OF f OR MISSING, RESULTING INDICATORS WITH THIS OP CODE. 
INVALID RESULTING INDICATORS BLANK. 



ASSUME 



Figure 6-22 (Part 6 of 6). Example 2 - RPG II MRT Program 
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Chapter 7: Basic Assembler Programming for CCP 



As an Assembler programmer, you must be familiar with 
the information included in Chapter 2: Standard Appli- 
cation Program Interface to the CCP. To assist you in 
supplying codes needed for your source program, the CCP 
provides six macro instructions, each of which generates 
information needed by the source program. 

Four of these macros generate equates for values significant 
to communications under CCP: $NCOM, $NPLO, $NOPV, 
and SNRTV. The fifth macro - $NPL - generates a 
parameter list, and the sixth macro - $NCIO - generates 
a request for a communications operation. 

Each of the supplied macro-definitions is a member of 
the Source Library on your program-preparation pack. 

Note: Because several of these macros use macro processor 
facilities not available prior to version 08, modification 
level 00 of System/3 Model 10 Disk System Management, 
they should not be used for program preparation with an 
earlier version of the Macro Processor on that system. 



Symbols Used in Defining IVIacro Instructions 

The symbols [ ] and( }are used in this publication to help 
define the macro instructions. You do not code these 
symbols; they are only used to indicate how a macro in- 
struction may be written. 

[ ] indicates an optional operand. The operand enclosed 
in the brackets may or may not be coded, depending 
on vi/hether or not the associated option is desired. 
If more than one item is enclosed in brackets, for 
examplerGETl either one or none of the items may be' 
coded. 

{ } indicates that a choice must be made. One of the 
operands from the vertical stack within braces, for 
exarnple,(pjo^} must be coded, depending on which 
of the associated services is desired. 

Options that are underlined are the default values used by 
the CCP if you do not provide an operand. For example, 
for(J^^S), YES is the assumed value. 

For cases in which YES is appropriate, Y may be coded; for 
cases in which NO is appropriate, N may be coded. 



For more information concerning the coding of macro 
instructions, see the following manuals: 

• IBM System/3 Models 10 and 1 2 Control Programming 
Macros Reference Manual, GC2 1-7562 

• IBM System/3 Model 15 System Control Programming 
Macros Reference Manual, GC2 1-7608 

Mnotes 

Mnotes applicable to the supported Assembler macros are 
described at the end of this chapter. Each mnote descrip- 
tion addresses the severity of the problem, the issuing 
macro, an explanation of the problem, system action, 
and suggested programmer action. 



GENERATE EQUATES FOR COMIVION VALUES 
($NCOIVI) 

The $NCOM macro generates a set of symbolic equates, 
each of which represents a value commonly used in CCP 
Assembler language communications programming. The 
symbols generated and the values they represent are: 



Symbol 



Decimal Value Value Represented 



$NIXR1 


1 


Index register 1 


$NIXR2 


2 


Index register 2 


$NSENT 


4 


Address of General Entry 


$NSCCR 


1 


DSM RIB for CCP 


$NSCCS 





CCPsub-RIB for com- 
munications operation 


$NLPL 


16 


Length of a parameter 
list 


SNLPLF 


2 


Length of a parameter 
list field 


$NLSTN 


6 


Length of a symbolic 
terminal name 



This macro need be used only once in an assembly to 
generate the desired symbols. However, if this macro is 
used more than once in an assembly, duplicate symbols 
are not to be generated and no assembly error or error 
mnote is generated. A warning mnote is issued, however, 
each time this macro is used after the first use. 
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The symbols generated by this macro are used by the 
$NCIO macro. If the $NCIO macro is issued in an assembly 
and the SNCOM macro has not previously been Issued, the 
$NCIO macro generates the symbols. However, each sub- 
sequent time the $NCOM macro is issued, a warning mnote 
is issued. 



This macro need be used only once in an assembly to 
generate the desired symbols. If used more than once, it 
does not cause duplicate symbols to be generated and no 
assembly error or error mnote is generated. A warning 
mnote is issued, however, each time this macro is issued 
after the first. 



The format of the $NCOM macro is; 



1 


8 


14 




SNCOM 





Notes: 

• This macro has no operands. 

• The name field of this macro is not used; any symbol 
entered in this field is ignored. 



The symbols generated by this macro are used by the 
$NCIO macro. If the $NCIO macro is used in an assembly 
but the $NPLO macro has not been previously issued, the 
$NCIO macro generates the symbols itself. However any 
subsequent use of the $NPLO macro only causes a warning 
mnote to be issued (duplicate symbols are not generated). 

The format of the $NPLO macro is: 



1 


8 


14 




$NPLO 





GENERATE EQUATES FOR PARAMETER LIST 
OFFSETS ($NPLO) 

The $NPLO macro generates a set of symbolic equates. 
Each symbol generated represents a field in a parameter 
list, and is equated to the displacement (offset from the 
first byte of the parameter list) of the rightmost byte of 
that field. 

The symbols generated, and the fields they represent are: 

Symbol Decimal Value Field Represented 



Notes: 

• This macro has no operands. 

• The name field of this macro is not used; any symbol 
entered in this field is ignored. 



$NPRTC 


1 


Return code field 


$NPOPC 


3 


Operation code/modifier 
field 


$NPOUL 


5 


Output data length field 
(see note) 


$NPEFL 


5 


Effective (actual) input 
data length field (see note) 


$NPATI 


5 


Attributes identifier 
field (see note) 


$NPINL 


7 


Maximum input data 
length field 


$NPRAA 1 


9 


Record area address field 


$NPWKA 


11 


Internal work field 


$NPWKB 


13 


Internal work field 


$NPWKC 


15 


Internal work field 



Note: Symbols $NPOUL, $NPEFL, and $NPATI represent 
the same field within a parameter list and are equated to 
identical displacements. 
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GENERATE OPERATION CODE/MODIFIER VALUES 
($NOPV) 

The $NOPV macro generates a set of symbolic equates. 
Each symbol generated represents the value of a CCP com- 
munications operation code or operation modifier (see 
Appendix E for the hexadecimal values of the operation 
code/modifier combinations). The symbols generated, 
and the operation code or modifier each represents, are: 



Symbol 



Operation defined 



$NCAQC 


Acquire Command-mode Terminal 


$NCGET 


Get 


$NCPUT 


Put 


$NCPTG 


Put-Then-Get 


$NCPNVV 


Put-No-Wait 


$NCINV 


Invite Input 


$NCACC 


Accept Input 


$NCSPI 


Stop Invite Get 


$NCGTA 


Get Terminal Attributes 


$NCACQ 


Acquire Terminal 


$NCREL 


Release Terminal 


$NCSHQ 


Shutdown Inquiry 


$NCCPY 


Copy (3270 OFF only) 


$NCEAU 


Erase All Unprotected (3270 OFF only) 


$NCTCH 


Chain Task Request 




Modifier defined 


$NIVIMSG 


Send end-of-transmission 


$NMBLK 


End of current data block 


SNMRVI 


Send Reverse Interrupt 


$NMKPL 


Keep control of communications line 


SNMSTA 


Set Terminal attributes 


$NMNNL 


Record does not start a new line (not Ne 



Line) 
$NMNEL Record does not end the current line (not 

End Line) 
$NMOVR Override/Selected Field List (3270 OFF only) 
$NMPRF Program request under format 



This macro need be used only once in an assembly to 
generate the desired symbols. If used more than once, this 
macro does not cause duplicate symbols to be generated 
and no assembly error or error mnote is generated. However, 
a warning mnote is issued each subsequent time this macro 
is issued in the assembly. 

The symbols generated by this macro are used by the 
$NCIO macro. If the $NCIO macro is issued in an assembly 
but the $NOPV macro has not previously been issued, the 
$NCIO macro generates the symbols itself. However, any 
subsequent use of the $IMOPV macro only causes a warning 
mnote to be issued (duplicate symbols are not generated). 

The format of the $NOPV macro is: 



1 


8 


14 




$NOPV 





Notes: 

• This macro has no operands. 

• The label field of this macro is not used; if a symbol 
is specified in the label field, it is ignored. 



GENERATE EQUATES FOR RETURN CODE VALUES 
($NRTV) 

This macro generates a set of symbolic equates. Each 
symbol generated represents the two-byte signed numeric 
value of a return code issued by CCP. The symbols gen- 
erated, and the meaning and value of the return code 
specified by each, follow: 
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Type of 
Return Code 



Symbol 



Return 

Code 

Value 



Meaning 



No error or 


$NOK 





Successful operation 


exception 


$NACTC 


14 


Successful chain task data accept operation 


Exception 


$NXDTR 


1 


Data truncated 




$NXEOT 


2 


EOT received/non-PRUF data returned to PRUF program 




$NXEDT 


3 


EOT received and data truncated 




$NXSHD 


4 


Shutdown requested 




SNXDPD 


5 


Data pending on BSCA line 




SNXRVI 


6 


RVI/Terminal Interrupt received 




$NXCLR 


7 


3270 CLEAR key 




SNXNAV 


8 


Terminal no longer available 




$NXOFF 


9 


Terminal offline 




$NXSPI 


10 


Stop Invite Input successful 




$NXNAQ 


11 


Acquire terminal failed 




$NXIVIAX 


12 


Maximum number of chain task requests already queued 




$NXTCP 


13 


Insufficient TP buffer available for this request 




$NXADT 


15 


Chain task data was truncated 


Error 


$NRDCK 


-1 


Data check 




$NRTRN 


-2 


Invalid character 




$NRLST 


-3 


Lost data 




$NRPBS 


-4 


Permanent BSCA error 




$NRABN 


-5 


Abnormal response 




$NRXRA 


-6 


Transmit/Receive abort 




$NRATO 


-7 


No response to polling/addressing 




$NRTTO 


-8 


Text timeout 




$NRWTO 


-9 


Wait time exceeded 




$NRNOC 


-10 


No connection 




$NRI1D 


-11 


Invalid ID 




SNRABD 


-12 


Abort, disconnect 




$NRADC 


-13 


Adapter check 




SNRNAK 


-14 


Negative response to addressing 


Error 


$NR2DU 


-20 


Device unavailable or not ready 


(3270 only) 


$NR2ED 


-22 


Equipment check, device end 




$NR2TE 


-23 


Terminal control unit detection of BSCA error 




$NR2CD 


-24 


Control check, data check 




$NR2PD 


-25 


Data check on Copy command 




$NR2P0 


-26 


Operation check on Copy command 




$NR2PB 


-27 


Device busy on Copy Command 




$NR2PC 


-28 


Control check, operation check, data check on 
Copy Command 




$NR2PI 


-29 


Invalid data received from 3270 using DFF 
(Get, Accept Input, Stop Invite Input operations) 
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Type of 
Return Code 



Symbol 



Return 

Code 

Value 



Meaning 



Error 


$NR5SR 


-40 


Attempted send before receive 


(3735 only) 


$NR5IC 


-41 


Invalid character 




$NR5BF 


-42 


3735 buffer overflow 




$NR5DF 


-43 


Disk full 




$NR5RF 


-44 


Directory full 




$NR5UH 


-45 


Undefined header 




$NR5DE 


-46 


3735 disk error 


Error 


$NR7TE 


-50 


Transparency error occurred 


(3741,5234, 


$NR7NA 


-51 


No activity in 20 seconds 


and 5235) 


$NR7DC 


-52 


Data check 




$NR7LB 


-53 


Received line bid error 




$NR7WL 


-54 


Wrong length error 




$NR7RP 


-55 


Reset was pressed on 3741 




$NR7SC 


-56 


Security check 




$NR7D0 


-57 


Disk overflow 




$NR7BE 


-58 


Bad extent error 




$NR7BT 


-59 


Both stations transmit 




$NR7LE 


-60 


Length error 




$NR7NF 


-61 


No record found on disk 




$NR7SE 


-62 


Seek error 




$NR7RE 


-63 


Read error 




$NR7WE 


-64 


Write error 




$NR7NR 


-65 


3741 not ready 




$NR7WP 


-66 


Diskette is write-protected 



For more information concerning these return codes, and 
recommended user actions, see Appendix E: Return 
Codes. 

This macro need only be used once in an assembly to 
generate the desired symbols. If it is used more than once, 
duplicate symbols are not generated and no assembly error 
is forced. However each subsequent time this macro is 
used, a warning mnote is issued. 



The format of the $NRTV macro is: 



1 


8 


14 




$NRTV 





Notes: 

1. This macro has no operands. 

2. The label field of this macro is not used; if a symbol is 
specified in the label field, it is ignored. 
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GENERATE PARAMETER LIST ($NPL) 

The $NPL macro generates a communications parameter 
list. You can specify the initial value of each field of 
this list. This macro may be used any number of times in 
an assembly; a separate parameter list is generated each 
time this macro is used, When the parameter list is gen- 
erated, the operand values specified are not checked for 
validity; therefore, care must be taken that only valid 
operands are specified. 

The format of the $NPL macro is: 



1 


8 


14 


[ label ] 


$NPL 


[ OP-valuex ] 

. roUTLEN-valuexl . 

^ \,ATTRID-valuex j ' 
[ ,INLEN-valuex] 
[ ,RECA-addrx ] 



See Note under $NCIO macro for the meaning of valuex 
and addrx. 

If you specify a label with the $NPL macro, an EQUATE 
is generated, This EQUATE sets the specified symbol equal 
to the address of the first byte of the parameter list 
generated. 

OP-valuex specifies an initial value for the operation/ 
modifiers field of the parameter list. If this operand is 
omitted, a value of X'OOOO' is generated for the operation/ 
modifiers field. 

The operand value should represent a valid CCP operation. 
Any valid absolute expression may be used, but it is 
recommended that operation and modifier values generated 
by the $N01PV macro be used. 

OUTLEN-valuex specifies an initial value for the output 
data length field. If this operand is omitted (and the 
ATTRID operand is also omitted), a value of X'OOOO' is 
generated for the output data length field. 

Because the output data length field (generated by OUTLEN) 
and the attributes identifier field (generated by ATTRID) 
occupy the same locations in the parameter list, both 
operands cannot be specified in one macro instruction. 
If both are specified, an error mnote is generated. 

The operand value may be any valid absolute expression. 
Note that a data length entry does not include the six- 
byte symbolic terminal name found at the beginning of a 
record area. 



ATTRID-valuex specifies an initial value for the attributes 
identifier field of the parameter list. If this operand is 
omitted and the OUTLEN operand is also omitted, a value 
of X'OOOO' is generated for the attributes identifier field. 

Because the attributes identifier field generated by ATTRID 
and the output data length field (generated by OUTLEN) 
occupy the same locations in the parameter list, both 
operands cannot be specified in one macro instruction. If 
both are specified, an error mnote is generated. The operand 
value, which may be any valid absolute expression, should 
represent a positive number that corresponds to the 
identifier of a terminal-attributes set that has been defined 
for your installation. This definition is performed in a CCP 
/Svssignment Build run by a //TERMATTR statement. 

INLEN-valuex specifies an initial value for the maximum 
input data length field of the parameter list; if this operand 
is omitted, a value of X'OOOO' is generated for that field. 

This operand, which may be any valid absolute expression, 
should represent a positive number which is no greater than 
the length of the data portion of the record with which this 
parameter list will initially be used. The six-byte symbolic 
terminal name at the beginning of the record area is not in- 
cluded as part of the input data length, 

RECA-addrx specifies an initial value for the record area 
address field in the parameter list; if this operand is omitted, 
a relocatable value equal to the beginning of the parameter 
list plus 16 is generated for that field. 

This operand, which may be any valid relocatable expression, 
should represent the high-order (leftmost) byte of the record 
area. Note that the high-order byte of the record area is 
the leftmost byte of the name field in the record area, not 
the address of the first byte of the data portion of the record 
area. 

Each time this macro is used, a 16-byte parameter list 
(composed of eight successive 2-byte DC fields) is generated. 
Any fields which will not be affected by the operands of 
this macro are set to X'OOOO'. If you specify a label in this 
macro instruction, the specified symbol is equated to the 
address of the high-order (leftmost) byte of the generated 
parameter list. No additional symbols are generated by this 
macro. You can cause symbols to be generated for offsets 
of fields within a parameter list by issuing a $NPLO macro 
instruction or by issuing a $NCIO macro instruction without 
issuing a $NPLO macro instruction. 
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Example 

In the following exannple, initial values are placed in a 
parameter list using the $NPL macro: 
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As a result of issuing the $NPL macro as shown above, a 
parameter list is generated with the operation code set to 
Accept Input, the maximum input length set to 20, and 
the address of the record area set to the address of INPUT 
(a record area defined elsewhere in the program). 
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SET CONTROL INFORMATION FOR COMMUNICATIONS 
OPERATION ($NCIO) 

The $NCIO macro provides control information needed to 
identify a communications operation and request COP to 
perform that operation. 



The format of the $NCIO macro is: 



$NCIO 



14 



PLIST- 



,0P- 



iOUTLENl 
ATTRID 



,INLEN - 

,RECA- 

,TNAIVIE- 
,EXEC- 



addrx 

dispx(,regx) 

(1) 

(2) 

(addrx) 

(dispx(,regx)) 

GET [,RVI ] 

JPUT)[IBLKH [NNL](,NEL] [,OVR] [,PRF] 

PTG[,NNL] [,NEL] 
INV 
ACC 
SPI 
GTA 

REL[,KPL] 

CPY 

EAU 

SHQ 

TCH 

WAT 

valuex 

(1) 

(address) 

(dispx(,regx)) 

[ addrx 
1(1) 

I (addrx) 
(dispx(,regx))J 

valuex 
(1) 

I (addrx) 
(dispx(,regx))J 

addrx 
(1) 

(addrx) 
.(dispx(,regx)), 

( chars ■ 

j (addrx) j 

' (dispx(,regx)) 

I— i 1 



Note: The following operand forms 
must be enclosed in apostrophes: 

'operation, modifier' (OP - operand) 
'chars' (TNAME - operand) 
'(dispx(,regx))' 
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Notes: 

• All operands in this macro are optional. 

• Several syntactic classes are included in these descriptions, 
and are defined as follows: 

valuex — an absolute expression representing a number 
whose assembled value will fall in the range 
0^ value < 32,767 

dispx - an absolute expression (representing a dis- 
placement from a base address) whose 
assembled value will fall in the range < 
value < 255. 

regx — an absolute expression (representing the 

number of an index register) whose assembled 
value will be either 1 or 2. 

addrx -- a relocatable expression representing a main- 
store address in your program. 



• The first time a $NCIO instruction is used in an assembly, 
any or all of three sets of symbolic equates may be 
generated. If any of three macros ($NCOM, $NPLO, or 
$NOPV) had not been issued before in that assembly, 
any equates which would have been produced by that 
macro are generated by the $NCIO macro. Any sub- 
sequent issuance of any of these macros produces a 
warning mnote. 

• In the generation of the $NCIO macro, no check is made 
that any expression is syntactically valid to the Assembler, 
nor that the value generated is valid for its intended use. 



[PLIST 



addrx 

dispx(,regx) 

(1) 

(2) 

(addrx) 

(dispx(,regx)) 



chars — one to six alphameric characters. 

• Certain operand values may be written with surrounding 
parentheses to specify indirect addressing. If the first 
character of such an operand value is a left-parenthesis, 
the last character of that value must be a right-parenthesis. 
If this is not the case, an error is issued and the macro 
instruction is not generated. 

• If an operand value is written enclosed in parentheses, 
the total number of characters within the parentheses 
must not exceed 16; if the number of characters exceeds 
16, an error is issued, and the macro instruction is not 
generated. 



The PLIST operand specifies the address of the high-order 
(leftmost) byte of the communications parameter list being 
used. 

When a request is made of CCP to perform a communications 
operation, the address of the parameter list used with this 
operation must be in index register 2. Therefore, you must 
either ensure that the address of your parameter list is in 
index register 2 when the instructions generated by this 
macro are executed, or code this operand in order to set 
index register 2 to the appropriate operand. 



• The $NCIO macro can be used any number of times 
within an assembly. 

• If you specify a label in the $NCIO macro instruction, 
an equate is generated. This equate sets the specified 
symbol equal to the address of the first byte of the 
first instruction generated. 
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Omit this operand or code (2) to signify that index register 
2 already contains the address of the parameter list. 
Specifying a value of other than (2) causes an instruction 
to be generated which loads index register 2 with the para- 
meter list address you specify. The source of this address 
is determined by the form in which you specify the 
operand: 

Form Index Register 2 set to: 

addrx The value of the expression Itself. 

dispx{,regx) An address equal to the value of the 

specified displacement added to the con- 
tents of the specified index register. 

(1 ) The contents of index register 1 . 

(addrx) The contents of a 2-byte field in main 

storage whose rightmost byte is located 
at the specified address. 

(dispxi.regx)) The contents of a 2-byte field in main 
storage whose rightmost byte is located 
at the specified displacement from an 
address contained in the specified index 
register. 



GET[,RVI] 
{pNwKImSg}^ f''^'^^' f''^^'-] [.OVR] [,PRF] 

PTG [,NNL] [,NEL] 

INV 

ACC 

SPI 

GTA 

REL[,KPL] 

CIPY 

EAU 

SHQ 

TCH 

WAT 

valuex 

(1) 

(address) 

(dispx(,regx)) 



[,0P ' 



Note: If one (or more) modifiers is specified, the entire 
operand must be enclosed within apostrophes (for example, 
OP-'PUT,MSG'). 

The OP operand specifies the setting of the operation field 
of your parameter list. If this operand is omitted, no 
Instructions are generated to set the operation field. 



This operand can identify the actual value to which the 
field is to set, by specifying: 

• an abbreviation of an operation code, and any desired 
associated modifiers (see Appendix D for meanings of 
the abbreviations). 

• an absolute expression 

• the name of a location from which the field's value can 
be obtained when the instruction is executed. 

If the abbreviation of an operation code is used, the field is 
set to the proper numeric value for that operation (and 
associated modifier). If one or more modifiers are specified, 
each must be preceded by a comma; in addition, the entire 
operand must be enclosed within apostrophes to prevent 
the Macro Processor from interpreting the operation code 
and the (first) modifier as a delimiter of the operand. For 
example, if you specified NNL for the PTG operand, it 
would be coded OP-'PTG,NNL'. 

If several modifiers are used they may be specified in any 
order after the operation code. In the generation of this 
macro, no check is made to determine if a valid modifier 
is used with the operation code. 

If the operand value begins with a left-parenthesis, it 
indicates that the value to be set into the operation field 
is to come from a specified location when the generated 
instruction is executed. This location is determined as 
follows: 

If the form is The field is set to 

(1 ) The contents of index register 1. 

(addrx) The contents of 2-byte field in main 

storage the rightmost byte of which 
is located at the specified address. 

(dispx(,regx)) The contents of a 2-byte field in 

main storage, the rightmost byte of 
which is located at the specified dis- 
placement from the specified Index 
register. 

If the operand value is neither a 3-character operation code 
abbreviation (with or without modifiers) nor an expression 
beginning with a left-parenthesis, it is assumed to be an 
absolute expression, the assembled numeric value of which 
is to be set into the operation field. 
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i valuex 
r iOUTLENl -hi) 
\aTTRIDJ Haddrx) 

'(dispx(,regx))^ 



These optional operands allow you to specify either the 
setting of the output data length field (if OUTLEN is 
specified). If both operands are omitted, no instructions 
are generated to set the field (the attributes identifier 
field and the output data length field are the sanne field in 
a parameter list). If both OUTLEN and ATTRID are 
specified in the same macro instruction, an mnote is issued, 
and the macro instruction is not generated. 

The operand may specify either the actual value to be set 
into the field, or a location from which the value can be 
obtained at the time the instruction is executed. The 
source of the value is determined by the form in which the 
operand value is specified: 

If the form is The field is set to 

valuex The value of the expression itself. 

(1) The contents of Index Register 1. 

(addrx) The contents of a 2-byte field in 

main storage, whose rightmost byte is 
located at the specified address. 

(disp(,regx)) The contents of a 2-byte field in main 

storage, whose rightmost byte is located 
at the specified displacement from an 
address contained in the specified index 
register. 



/'valuex 
)(1) 
[,INLEN -j(addrx) 

((dispx(,regx))' 



This operand specifies the setting of the maximum input 
data length field of your parameter list. If this operand is 
omitted, no instructions are generated to set this field. 

The operand may specify either the actual value to be set 
into the field, or a location from which the value can be 
obtained at the time the instruction is executed. The source 
of the value is determined by the form in which the operand 
value is specified. The possible forms and the resultant 
setting of each follow. 



Operand form Resultan t setting 

valuex The value of the expression itself. 

(1) The contents of Index Register 1. 

(addrx) The contents of a 2-byte field in 

main storage, whose rightmost byte is 
located at the specified address. 

(dispx(,regx)) The contents of a 2-byte field in main 

storage, whose rightmost byte is 
located at the specified displacement 
from an address contained In the 
specified index register. 



/^addrx 

)(1) 
[,RECA -S(addrx) 

f(dispx(,regx))^ 



This optional operand specifies the setting of the record area 
address field of the user's parameter list; if this operand is 
omitted, no instruction is generated to set that field. 

The operand may specify either the actual address to be 
set into the field, or a location from which the address can 
be obtained at the time the instruction is executed. The 
source of the address is determined by the form in which 
the operand value is specified. The operand forms used, 
and the field setting for each follow. 

Operand form Field set to 

addrx The value of the expression itself. 

(1 ) The contents of Index Register 1 . 

(addrx) The contents of a 2-byte field in 

main storage, whose rightmost byte is 
located at the specified address. 

(dispx(,regx)) The contents of a 2-byte field in main 

storage, whose rightmost byte is lo- 
cated at the specified displacement 
from an address contained in the 
specified index register. 
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( chars 
,TNAME - } (addrx) 

I (dispx (,regx) 



[,EXEC - 




This optional operand specifies the setting of the name of 
the program to be requested or the symbolic terminal 
name in the name field of the user's record area. When 
this operand is specified, instructions are generated to set 
the field; these instructions make use of the record area 
address in the parameter list as a pointer to the leftmost 
byte to which the specified name should be moved. If a 
RECA operand was specified in this macro instruction, 
the record area address specified by that operand is used; 
if a RECA operand was not specified in this macro instruc- 
tion, the address presently contained in the record area 
address field of the parameter list is used. If this operand 
is omitted, no instructions are generated to set the pro- 
gram or the symbolic terminal name in the name field. 

The operand can specify the program or symbolic terminal 
name to be set into the field, or a location from which 
the name can be obtained at the time the instruction is 
executed. The source of the name is determined by the 
form in which the operand value is specified. The possible 
forms of these operands, and the field setting generated 
by each follow. 



Operand form 

chars 
(addrx) 



{dispx(,regx)) 



Field set to 

The character string specified. 
The contents of a 6-byte field in 
main storage, whose rightmost 
byte is located at the specified 
address. 

The contents of a 6-byte field in 
main storage, whose rightmost byte 
is located at the specified displace- 
ment from an address contained 
in the specified index register. 



This optional operand specifies whether or not (after 
setting any control fields specified in other operands of 
the SNCIO macro instruction) instructions are generated to 
cause control to be transferred to CCP to perform the oper- 
ation. If YES (or Y) Is specified, or if this operand is 
omitted (YES is the default value), instructions are genera- 
ted to request the CCP to perform the operation specified 
by the programmer, using information either set by this 
macro instruction or already available in your parameter 
list and record area. 

If a NO (or N) is specified, no branch is made to General 
Entry, and no RIB and sub-RIB generated. You might 
choose to specify this option when you only want to set 
certain fields in your parameter list or record area, but you 
won't be performing the operation until a later point in 
your program. 

Examples of Using $NCIO 

Figure 7-1 shows several examples of valid $NCIO macro 
instructions as you might code them in a program. The 
examples show various ways of specifying keyword operands 
for the macro. After issuing the $NCIO macro instruction, 
your program should test the return code to determine 
whether the operation was successful or whether it resulted 
in an error or exception condition. Return codes are 
summarized in Appendix E. 

Use of the $EOJ system macro instruction is also shown in 
Figure 7-1. You can use non-CCP System/3 macro instruc- 
tions in your CCP programs. These System/3 macro in- 
structions are described in: 

• IBM System/3 Models 10 and 12 Control Programming 
Macros Reference Manual, GC2 1-7562 



IBM System/3 Model 15 System Control Programming 
Macros Reference Manual, GC2 1-7608 
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Figure 7-1. Examples of $NCIO Macro Instructions 
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PROGRAMMING RESTRICTIONS 

The following restrictions apply when programming for 
the standard interface to CCP using Assembler Language. 

• Input/Output cannot be performed on either the 5471 
Printer/Keyboard (Model 10 Disk System and Model 12) 
or the CRT/Keyboard (Model 15) using the standard 
DSM Data Management; instead, the console must be 
addressed as the "terminal" CONSOL, governed by the 
standard CCP restrictions concerning operations that 
may be performed on that device. (See the Standard 
Communications Interface for a description of these 
restrictions.) 

• If the (dispx(,regx)) operand format is used in the $NC- 
10 macro with index register 1 as regx, the original value 
of index register 1 is not returned after using the macro. 
Therefore, you should save and restore the register when 
using $NCIO. 

• User DTFs and lOBs must be placed in the first 24K of 
the user program. 



ASSEMBLER MACRO SUPPORT MNOTES 

Mnotes are er.ror messages pertaining to macro instruction 
formats. They are included in your assembly listing, printed 
beneath the macro instruction to which each applies. 
The Mnotes which follow are issued if an error is encountered 
when using the Assembler Language support macros. 

N2001 CONFLICTING OPERAISfDS-OUTLEN/ATTRID 



Severity: 
Issuing macro (s): 
Explanation: 



Error (08) 

$NPL,$NCIO 

If a$NPLor$NCIOmacro 
instruction, you have specified 
both the OUTLEN and the 
ATTR ID operands. Because the 
output data length field (speci- 
fied by OUTLEN) and the 
attributes identifier field 
(specified by ATTR ID) are the 
same field in a parameter list, 
they are mutually exclusive, 
and only one can be specified at 
a time. 



System Action: 



Programmer Action: 



This macro instruction is not 
generated. 

Correct the macro instruction by 
using only one of the two oper- 
ands, and repeat the macro- 
generation/assembly run. 



N3001 INVALID OPERATION CODE SPECIFIED 



Severity: 
Issuing macro: 
Explanation: 



System Action: 



Programmer Action: 



Error (08) 

$NCIO 

The parameter specified in the 
OP operand is in the form which 
indicates an operation code 
followed by operation modifiers. 
However, the first element of 
the list is not a valid operation 
code abbreviation. 

This macro instruction is not 
generated. 

Correct the parameter by using 
a valid operation code and repeat 
the macro-generation/assembly 
run. 



N3Q02 INVALID OPERATION MODIFIER SPECIFIED 



Severity: 
Issuing macro: 
Explanation: 



System Action: 



Programmer Action: 



Error (08) 

$NCIO 

The parameter of the OP 
operand is in the form which 
signifies an operation code 
followed by one or more oper- 
ation modifier. However, an 
operation modifier specified is 
not a valid abbreviation. 

This macro instruction is not 
generated. 

Correct the parameter by speci- 
fying a valid operation modifier 
abbreviation and repeat the 
macro-generation/assembly run. 
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N3003 PARAMETER MISSING FINAL RIGHT-PAREN 



N6001 OFFSET VALUES PREVIOUSLY GENERATED 



Severity: 
Issuing macro: 
Explanation: 



Error (08) 

$NCIO 

An invalid form for a parameter 
was specified. The first character 
was a left parenthesis, but the 
last character was not a right 
parenthesis. 

This macro instruction is not 
generated. 

Correct the parameter by enclosing 
it properly with a right parenthesis 
and repeat the macro-generation/ 
assembly run. 



N3004 PARENTHESIZED PARAMETER TOO LONG 



System Action: 



Programmer Action: 



Severity: 
Issuing macro: 
Explanation: 



System Action: 
Programmer Action: 



Error (08) 

$NCIO 

A parameter enclosed by 
parentheses was composed of 
more than 16 characters (ex- 
cluding the parentheses). 

This macro instruction is not 
generated. 

If the error was due to a key- - 
punching error, correct the 
parameter and repeat the macro- 
generation/assembly run. If the 
error was due to an overly 
complex expression being coded 
within the parentheses, simplify 
that expression (by creating an 
equate for it), use the newly 
created symbol with the paren- 
theses, and repeat the macro- 
generation/assembly run. 



Severity: Warning (04) 

Issuing macro: $NPLO 

Explanation: A $NPLO macro instruction was 

used but the offset equate values 
to be generated from it had 
previously been generated in this 
assembly (either by another 
$NPLO macro instruction or by a 
$NCIO macro instruction). 

System Action: The offset equates are not 

generated; to avoid creation of 
duplicate symbols in this 
assembly. 

Programmer Action: None required. 

N6002 OPERATION VALUES PREVIOUSLY GENERATED 



Severity: 
Issuing macro: 
Explanation: 



System Action: 



Programmer Action: 



Warning (04) 

$NOPV 

A $NOPV macro instruction was 
used, but the values to be gen- 
erated by it had previously been 
generated in this assembly (either 
by a $NOPV macro instruction 
or by a $NCIO macro instruction). 

Operation code and modifier 
value equates are not generated 
by this statement; to avoid crea- 
tion of duplicate symbols in the 
assembly. 

None required. 
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N6003 REETURN-CODE VALUES PREVIOUSLY 
GENERATED 

Severity Warning (04) 

Issuing macro: $N RT V 

Explanation: A $NRTV macro instruction was 

used, but the return code value 
equates to be generated from it 
had previously been generated in 
this assembly. 

System Action: Return code value equates are 

not generated; to avoid creation 
of duplicate symbols in this 
assembly. 

Programmer Action: None required. 

N6004 COMMON VALUES PREVIOUSLY GENERATED 



Severity: 
Issuing macro: 
Explanation: 



System Action: 



Programmer Action: 



Warning (04) 

$NCOM 

A $NCOM macro instruction 
was used, but the common equate 
values to be generated from it 
had been generated in this 
assembly (either by a $NCOM 
macro instruction or by a $NCIO 
macro instruction). 

Common equate values are not 
generated by this macro instruc- 
tion; to avoid creation of dupli- 
cate symbols in this assembly. 

None required. 



PROGRAMMING A USER SECURITY ROUTINE - 
MODELS 10 AND 12 

The user of CCP may, if he chooses, write his own terminal 
sign on security routines rather than use the CCP password 
facility supplied with his system. To implement and use 
such routines, the following must be considered. 

• This option must be selected at generation time by the 
"SECURE-USER" operand of the $ESEC statement. 

• The security data which will be used at terminal sign 
on time by the security routines must have been 
previously written to the security module $CC4Z9 
by User Security Data Program, $CCPAU (see CCP 
System Reference Manual). 

• The user security routines must be written in Basic 
Assembler Language (or an equivalent machine-level 
language) and must be structured such that they comprise 
four basic parts (statement numbers refer to the sample 
program. Figure 7-2): 

1 . System equates. They provide the necessary 
offsets and pointers to various system tables, as 
well as other common equates. 

2. The transient prologue and equates. The function 
of this code is to provide the following: 

a. a temporary two-byte offset value pointing to 
the relocatable address constants (statement 
1087) 

b. a one-byte offset to the first executable instruct- 
ion (1091) 

c. a one-byte ID with a binary value of 1, which 
defines the CCP transient area in which this 
transient will be running (1092) 

d. a two-byte field of hex 0000 to permit the 
passing of a parameter from this transient 
to another (1094) 

e. a two-byte displacement from the beginning 
of this module pointing to the first character 
past the ID of the transient to be called next 
(1095) 
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f. the two-character ID of the transient to be 
called next (last two characters of the module 
name) (1097) 

g. three bytes for disk control which are used 
when this transient is read from disk (1098- 
1099); the first byte is always /, the second 
and third bytes are set by CCP startup with 
the cylinder/sector address of the transient 
specified by the two-character transient ID. 

A one-character delimiter ($) and the two-byte 
ID of this transient follow (1100-1101). 

The main body of code, which in this example 
begins with statement 1 108 and ends with state- 
ment 1191. This sample code will: determine the 
length of, and move the sign-on data to an area 
within this transient; determine which terminal 
is attempting to sign on and then verify the sign- 
on data for that terminal, as found in the user 
security work area; pass the result of the verifica- 
tion to the CCP sign-on transient, $CC4S0, by 
setting a value in "TAXPRM" prior to exiting from 
this transient. The "TAXPRM" field of any CCP 
transient (at relative locations 4 and 5 of the 
transient) is the field in which one transient passes 
information to another. The total length of parts 
2 and 3 cannot exceed hex length 1 FF. 

Relocation Address Table. 

Because any sign-on security routine you write 
is a CCP transient, your routine must conform to 
the special way in which the addresses in CCP 
transients are established and relocated. 

In this special relocation method, any (two-byte) 
address, used in an instruction, which refers to a 
location within your transient itself requires an 
entry in a table, at the end of your transient, 
called the Relocatable Address Table. This method 
also allows you to address elements, outside your 
transient, which are in the CCP Communications 
Area; it also permits you to use any of a selected 
set of addresses which refer to routines or areas 
within the remainder of the CCP resident code. 
Any use of either of these types of addresses also 
requires an entry in the Relocatable Address Table. 
In effect, any use of a two-byte address which does 
not refer to an absolute location requires an entry 
in this table. 



In this method, any address you code in an 
instruction \s entirely replaced, when CCP begins 
to run, by an address derived from an entry in 
the Relocatable Address Table. There must be 
exactly as many entries in this table as there are 
relocatable addresses in your transient. Further 
the first relocatable address in your transient 
is replaced by an address derived from the first 
Relocatable Address Table entry, the second 
relocatable address by an address derived from the 
second entry, and so forth. Thus, if you wish to 
make any of the three kinds of address references 
described in the previous paragraph, it does not 
matter whether, in an instruction, you code an 
appropriate relocatable address, but only that 
you code an appropriate entry in the table. 

Each Relocatable Address Table entry is of one 
of three types, depending on the type of address 
you need to use in the corresponding instruction: 

a. Address within the transient 

b. Address within the CCP Communications Area 

c. Address of a special routine or area 

Each entry is two bytes long. The form of each 
entry is as follows: 

Address within transient: The entry must contain 
the displacement of the location within the trans- 
ient being referred to. For example, the entry 
at statement 1 198, corresponding to the address 
within the instruction at statement 1144, repre- 
sents a reference to the location 0042 within the 
transient. The two-byte displacement is formed in 
table entry by subtracting the address value of 
the beginning of the transient ($CC4YA) from the 
address within the transient being referred to 
(YA0100). 

Address within CCP Communications Area: The 
entry must contain the hex value COxx, where xx 
is the displacement within the Communications 
Area of the element being addressed. In this 
example, the symbol "COM" has been equated to 
the value X'COOO', and the symbol "@TUSTG" 
has been defined (by the macro $ECOM) as repre- 
senting the displacement of that field in the 
Communications Area which contains the address 
of the Terminal Unit Block for the terminal 
attempting to sign on. Thus, the table entry at 
statement 1196, corresponding to the address used 
in statement 1 108, is formed by defining a two- 
byte constant of AL2(C0M-i-@TUSTG). 
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Special Address of CCP Routine or Worl< Area: 
The entry must contain the hex value 80xx, where 
>:x is a number used by CCP to signify which special 
address is to be referenced. Two such entries are 
used in this example. The symbol "PGM" has been 
equated to the value X'8000', and the symbols 
"#CC4TX" and "USI" have been generated by 
the macro $ETRC, and represent the numbers 
for the special addresses, respectively, of: 

a. $CC4TX -- the location to which you must 
branch at the completion of execution of 
your transient. 

b. The first byte of the user security information 
(from the module $CC4Z9) which you will 
use for checking the validity of the terminal's 
sign on data. 

The last entry in a Relocatable Address Table 
must be followed by a one-byte constant of hex 
FF (statement 1201). 

The Relocatable Address Table is used only at 
the beginning of a CCP run to establish the 
addresses used in your transient. Therefore, it 
does not have to be present in main storage during 
each execution of your transient. Because of this, 
the table may extend beyond the 512 bytes which 
is the maximum size of the executable portion of 
a transient. 



• The first user transient to which control will be 
passed must be named $CC4YA. The first 
transient, ($CC4YA), may pass control to other 
user written transients, providing such addition- 
al transients are written and named according 
to established conventions. Any user-written 
transient receiving control after $CC4YA must 
be named such that the 1st five characters of 
the name are $CC4Y. The sixth character of 
the name may be any character in the range 
B-Z. 

• The last transient to be called, (or $CC4YA if it 
is the only one used), must transfer control to 
the transient area scheduler after setting the 
desired parameter value in location "TAXPRM". 
The transfer of control is performed by 
branching to the CCP routine $CC4TX. Refer- 
ence sample program statements 1160, 1167 
and 1176. 

• The security data which was previously written 
in the modules $CC4Z9, will be available for 
reference by any user written transient in a 
user security work area. The leftmost byte of 
this work area will contain the first byte from 
the module $CC4Z9. The size of the work area 
and the size of $CC4Z9 is specified at Genera- 
tion by the operand "LUSI" in the $ESEC 
statement. The address of the leftmost byte 

of this work area is available to the user's 
transient by the value "P + USI". See the sample 
sample program, statement 1129. 
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Sample Program — Model 10 or Model 12 

Figure 7-2 is an example of a user sign-on security routine. 
The following notes explain the logic of the example: 

• A total of six macros must be included in the source 
code. These macros produce equates used elsewhere in 
the program. Their names are as follpws: 

1. $EEQU 

2. $ECOM 

3. $ECPL 

4. $ETUB 

5. $ETNT 

6. $ETRC 

These macros are available only on the CCP distribution 
disk cartridge (PID001). Either copy these to your own 
source library or perform the macro processing step 
by loading $MPXDV from the distribution pacl<. 

• This sample program expects sign-on data in the form 
/ONtBSSSSS, where SSSSSS is the security code to be 
checked by $CC4YA. 

• As used by this program, the security data found in 
$CC4Z9 must be of the following form: 

^1^1 S ^1 S ^1 ^1 ^1 ^ ^1 'l 'l S^2SS^2S ^2^252^2^2 • 
CC ... represents a six-character symbolic terminal name 
and £!S ... represents a six-position security field. There 
should be as many sets of CC ... SS ... data residing in 
$CC4Z9 as there are terminals to be used by an assign- 
ment set for CCP. The intent of this data is to provide 
a vehicle by which $CC4YA can verify a unique six- 
character sign-on code for each terminal so specified by 
the symbolic terminal name. 
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• Statement 1 1 29 loads XR2 with the address of the left- 
most byte of the security data residing in the security 
data work area. Statement 1151 compares the data 
entered from the terminal after the 'ON', and the data 

in the security data work area that is associated with one 
symbolic terminal name. 

• Statement 1 140 compares the symbolic terminal name 
to the names in the security data area. The program 
loops between statements 1137 and 1144 and is exited 
when the end of the security data area is reached 
(1139), or when the name of the terminal signing on 
compares equal to one in the security data area (1142). 

• Statement 1160 puts '01' in symbolic location 
'TAXPRM'. This value indicates that the security data 
for the selected terminal verified correctly. After 
control is returned to $CC4TX and given to the CCP 
transient $CC4S0, a message will be sent to the selected 
terminal which will indicate that the sign on was success- 
ful. 

• Statement 1167 puts 'FF' in symbolic location 
'TAXPRM'. This value indicates that the security data 
for the selected terminal did not verify correctly. After 
control is returned to $CC4TX and given to the CCP 
transient $CC4S0, a message will be sent to the selected 
terminal which will say that the sign on was unsuccess- 
ful. 

• Statement 1 176 causes the control to be passed to the 
CCP transient $CC4S0. This is accomplished as follows: 

a. The field TAXTID (at relative location 6 in the 
transient) contains the displacement from the 
beginning of the transient of the first three bytes 
(location OA-OC of the transient) which address 
the transient $CC4S0. At CCP startup, the bytes 
at locations OB and OC are set to the disk address 
of that transient. 

b. The branch at statement 1176 gives control to the 
CCP Transient Area Scheduler, requesting it to 
pass control to the transient ($CC4S0) pointed 
toby the TAXTID field. 
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»C;C4YA 
ERft LOC OBJECT CODE 



AODR STMT SOURCE STATEMENT 



1072 * 



CCP TRANSIENT ROUTINE EQUATES 



0001 107A TARLOa EOU 

1075 * 
0001 1076 TAJUMP ECU 
0003 1077 TAIO EOU 
0005 1078 TAXPRM EOU 

0007 1079 TAXTIO EOU 

0008 1080 TAXCID EOU 
OOOA 1081 TAXNCS EOU 
0005 1082 TAXCLN EOU 



1 

TARLD8 

TARLD3t2 

TAtO+2 

TAXPRMt? 

TAXTIO+1 

TAXCID+2 

5 



OFFSET TO TRANSIENT 

CCP RELOCATION CONSTANTS 

DISPLACEMENT FOR JUMP OP + 

OFFSET TO TRANSIENT PROGRAM 

DISPLACEMENT TO PARM BYTES 

OFFSET TC NCS VALUES 

OFFSET TO TRANSIENT XCTL TABLE 

OFFSET TO FIRST NCS PARAMETER 

LENGTH OF AN XCTL TABLE ENTRY 



0000 003't 



0002 OE 

0003 01 

0004 0000 
0006 OOOA 

0008 E206 
OOOA 01 
OOOB C3E2 
0000 5B 
OOOE E8C1 
0010 03 



0011 35 02 0038 
0015 7* 02 83 
0018 6C 01 7B 09 
OOIC BO OA 05 
OOIF F2 01 41 

0022 6E 01 7B 05 
0026 5F 01 7B 6F 
002A 75 02 7S 
0020 60 09 79 00 



1084 * 

0000 1086 

0001 1087 

1088 * 

1089 * 

1090 * 

0002 1091 

0003 1092 
1093 * 

0005 1094 
0007 1095 

0009 1097 
OOOA 1098 YASO 
OOOC 1099 
OOOD 1100 
OOOF 1101 

0010 1102 

0011 1103 YAGO 

1105 * 
1105 ♦ 



TRANSIENT PROLOG 



USING *CC4YA,XR1 

OC AL2(YAaRLC-tCC4YAl 



DC AL1(YAG0-»CC4YA-3I 

OC XLl'l* 

DC XL2«0' 

DC AL2(YAS0-»CC4YA) 

OC CL2'S0' 

DC ALKl) 

OC CL2*CS' 

DC CL1«$' 

DC CL2'YA' 

DC XL1'03> 

EQU • 



DEFINE BASE REGISTER 

OISPL OF CCP RELOCATE ADCONS 

NOTE, THESE BYTES ARE OVERLAID 

WITH A JUMP OP CODE AND X'87' 

0-BYTE BY *CC4TA 

OFFSET TO FIRST INSTRUCTION 

TRANSIENT AREA ID, USED BY 

TRANSIENT RELOCATION ROUTINE 

PARAMETER BYTES 

DISPLACEMENT TO FIRST XCTLEE 

SPECIFIES XCTL TO $CC4S0 

N BYTE FOR DISK 

DISK C/S BYTES, SET BY CCP START 

END OF XCTL TABLES FIELD 

»CC4YA EYECATCHER CONSTANT 

LEVEL NUMBER 

BEGINNING OF EXECUTABLE CODE 



CHECK THE LENGTH OF THE TERMINAL MESSAGE AND IF CORRECT 
THEN MOVE IT TO THE TRANSIENT DATA AREA. 



1108 ««I0010 L 

1109 ST 

1110 MVC 

1111 CLI 

1112 JNE 



C+8TUSTG,XR2 LOAD POINTER TO TUB 

VATUB{,XR1»,XR2 SAVE TUB POINTER 

YAENDP(2,XR'l l,TPRECA(,XR2) SAVE BEGINNING a OF MSG. 

TPEFFL(,XR2),10 TEST FOR CORRECT INPUT LENGTH 

YAERR JUMP IF NOT 



1114 
1115 
1116 
1117 

1119 

1120 



ALC VAENDP(2,XR1I ,TPEFFL(,XR21 ADO LENGTH OF MESSAGE 

SLC YAENDP(2,XR11,YAX0NE{,XR1I DECREMENT POINTER 

L YAENDPI.XRl) ,XR2 XR2 POINTS TO END OF INPUT 

MVC YAENDD(10,XR1),0(,XR2) HOVE SIGN ON DATA TO TRANSIENT 

MOVE THE 6 CHARACTER NAME OF THE TERMINAL ATTEMPTING 
TO SIGN ON INTO AN AREA WITHIN THIS TRANSIENT. 



0031 75 02 83 
0034 B5 02 21 
0037 6r 05 81 05 



003B C2 02 0010 
B03F E2 02 05 



1122 
1123 
1124 

1126 * 

1127 * 



L YATUB(,XRU,XR2 LOAD TUB POINTER 

L TUBTNT(,XR21 ,XR2 LOAD ADDRESS OF TERMINAL NAME T. 

WVC VANAHE(6,XR1I ,TNTNAH(,XR2) HOVE TERMINAL NAME 

LOAD XR2 WITH THE ADDRESS OF THE LEFTMOST BYTE OF THE 
SECURITY DATA FOUND IN THE SECURITY DATA HORKAREA. 



1129 #i0020 LA 

1130 LA 



P+USI,XR2 
5C,XR2I,XR2 



LOAD POINTER TO SECURITY DATA 
BUMP POINTER 



1132 * COMPARE THE 5 BYTE TERMINAL NAME PREVIOUSLY SAVED AND THE 

1133 * 6 BYTE TERMINAL NAMES FOUND IN THE SECURITY DATA WORKAREA. 

1134 * KEEP COMPARING TILL A MATCH IS FOUND OR TILL THE END OF 

1135 * THE SECURITY DATA AREA IS REACHED 



Figure 7-2 (Part 1 of 2). Sample User Security Routine for IVIodels 10 and 12 
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$CC4YA 
ER* I.OC OBJECT CODE 



0042 BO 00 00 
0045 F2 81 IB 
0048 60 05 81 00 

004C F2 81 07 
004F E2 02 OC 
0052 CO 87 0042 



0056 90 05 06 79 



005A F2 01 06 



0050 7C 01 05 
0060 F2 87 03 



AOOR ST«T SOURCE STATEMENT 



0042 1137 YAOIOO EOU 



1138 
1139 
1140 
1141 
1142 
1143 



CLI 

JE 
CLC 

JE 
LA 



1144 ##0030 6 



0«,XR2)f0 

YAERR 

yANAME<6,XRll .0( .XR2) 

VAOllO 
12!,XR21tXR2 
YAOIOO 



TEST FOR END OF DATA 

JUMP IF END HAS BEEN REACHED 

COMPARE NAME ENTERED t NAME IN 

SECURITY DATA AREA 

JUMP IF A MATCH IS FOUND 

STEP POINTER TO NEXT NAME FIELD 

TO TEST NEXT NAME 



1146 * COME HERE WHEN A POSITIVE MATCH HAS BEEN MADE BETWEEN THE 

1147 * TERMINAL NAME AND THE NAME IN THE SECURITY DATA AREA. 

1148 * NOW COMPARE THE SIGN ON DATA ASSOCIATED WITH THE TERMINAL NAME. 



0056 1150 YAOUO EOU 



1151 

1152 * 

1153 * 

1154 * 
1155 
1156 ♦ 

1158 * 

1160 
1161 

1163 * 

1164 * 



CLC 6(6.XR2I,YAENC0(,XR1 1 



JNE 



COMPARE SIGN ON CODE FOR 
TERMINAL MHO'S NAME WAS JUST 
FOUND AND CODE IN SECURITY 
DATA FIELD 

JUMP TO ERROR EXIT IF CODE DOES 
NOT COMPARE 



THE SIGN ON DATA HAS COMPARED OK, SO PUT A X'Ol* IN 'TAXPRM', 



MVI 
J 



TAXPRMI.XRII.YAEOUl 
YAOUT 



PUT '01* IN PARAMETER 

TO EXIT FROM THIS TRANSIENT 



THE SIGN ON DATA 010 NOT COMPARE CORRECTLY, 
SO PUT A X«FF« IN 'TAXPRM'. 



0053 7C FF 05 



0065 3A CO 0500 
006A CO 97 0009 



006E 0001 



006 3 1166 YAERR EOU 



1167 

1168 ♦ 

1169 * 

1170 * 

1172 » 



MVI 



TAXPRM (,XR1),YAE0UF 



PUT 'FF' IN PARAMETER 
THIS SIGNIFIES THAT THERE WAS 
AN ERROR IN THE SIGN ON 
VALIDATION . 



COME HERE TO EXIT FROM THIS TRANSIENT 



0056 1174 YAOUT EOU 

1175 ##0260 SBN 

1176 ##0270 eC 



C+«CPWK*-*CPFtG,*C,PI I 4-$CPFR 
P+#CC4TX,BR97 TO XCTL 



1178 * 



CONSTANTS AND DATA AREAS 



006F 1180 YAXONE OC 
0070 0000000000000000 0079 1181 YAENDO OC 



0078 0000 

007A 0000 

007C 000000000000 

0082 0000 



1181 
007B 1182 YAENDP DC 
0081 1183 YANAME OC 
008 3 1184 YATU8 DC 



XL2'01' 
XLIO'O' 

XL2'0' 
XL6'0' 
XL2'0' 



CONSTANT 

INPUT DATA GOES HERE 

LENGTH OF MESSAGE 
TERMINAL NAME GOES HERE 
SAVE AREA FOR TUB POINTER 



0084 C03B 

0085 801D 
0088 0042 
OOaA C500 
008C 8009 
008E FF 



OOFF 1186 YAEQUF EQU 
0001 1187 YAEQUl EQU 



8000 1188 PGM 

COOO 1189 COM 

0000 1190 C 

0000 1191 P 



EOU 
EQU 
EQU 
EOU 



X'FF' 

1 

X'8000' 

X'COOO' 

$CC4YA 

$CC4YA 



1193 * 



RELOCATION ADDRESS TABLE 



0084 
0085 
0087 
0089 
008B 
0080 
OOSE 
0000 



1195 YAaRLC EOU 

1196 aaooio OC 

1197 330020 OC 

1198 330030 DC 

1199 330260 DC 
IZOO 330270 OC 
1201 DC 
1202. END 



AL2(C0Mt3TUSTGI 

AL2(PGM*USI) 

AL2(YA0100-P) 

AL2(C0H+$CPHK+*CPFLGJ 

AL2(PGH*#CC4TX) 

XLl'FF' 

»CC4YA 



STOPPER BYTE 



TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY 



Figure 7-2 (Part 2 of 2). Sample User Security Routine for Models 10 and 12 
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PROGRAMMING A USER SECURITY ROUTINE - 
MODEL 15 

The user of CCP may, if he chooses, write his own terminal 
sign on security routines rather than use the CCP password 
facility supplied with his system. To implement and use 
such routines, the following must be considered. 

• This option must be selected at generation time by the 
"SECURE-USER" operand of the $ESEC statement. 

• The security data which will be used at terminal sign 
on time by the security routines must have been 
previously written to the security module $CC4Z9 
by User Security Data Program, $CCPAU (see CCP 
System Reference Manual). 

• The user security routines must be written in Basic 
Assembler Language (or an equivalent machine-level 
language) and must be structured such that they 
comprise three basic parts (statement numbers refer 
to the sample program. Figure 7-3): 

1 . System equates. They provide the necessary 
offsets and pointers to various system tables, 
as well as other common equates. 

2. The transient prologue and equates. The function 
of this code is to provide the following: 

a. JUMP instruction to the start of executable 
code (statement 8). 

b. A two-byte field of hex 0000 to permit the 
passing of a parameter from this transient 
to another (statement 10). 

c. A two-byte address pointing to the third 
character past the ID of the transient to 
be called next (statement 11). 

d. The two-character ID of the transient to be 
called next, consisting of the last two 
characters of the module name (statement 
12). 

e. Three bytes for disk control which are used 
when this transient is read from disk (state- 
ment 12). A one-character delimiter ($) 
and the two-byte ID of this transient 
follow (statement 13). 



3. The main body of code, which in this example begins 
with statement 836 and ends with statement 909. 
This sample code will: determine the length of, 
and move the sign-on data to an area within this 
transient; determine which terminal is attempting 
to sign on and then verify the sign-on data for that 
terminal, as found in the user security work area; 
pass the result of the verification to the CCP sign- 
on transient, $CC4S0, by setting a value in 
"TAXPRM" prior to exiting from this transient. 
The "TAXPRM" field of any CCP transient (at 
relative locations 4 and 5 of the transient) is the 
field in which one transient passes information to 
another. The total length of parts 2 and 3 cannot 
exceed hex length IFF. 

• The first user transient to which control will be passed 
must be named $CC4YA. The first transient, 
($CC4YA), may pass control to other user written 
transients, providing such additional transients are 
written and named according to established conventions. 
Any user-written transient receiving control after 
$CC4YA must be named such that the 1st five characters 
of the name are $CC4Y. The sixth character of the 
name may be any character in the range B-Z. 

• The last transient to be called, (or $CC4YA if it is the 
only one used), must transfer control to the transient 
area scheduler after setting the desired parameter value 
in location "TAXPRM". The transfer of control is 
performed by branching to the CCP routine $CC4TX. 
Reference sample program statements 883, 890, and 
898. 

• The security data which was previously written in the 
modules $CC4Z9, will be available for reference by any 
user-written transient in a user security work area. The 
leftmost byte of this work area will contain the first 
byte from the module $CC4Z9. The size of the work 
area and the size of $CC4Z9 is specified at Generation 
by the operand "LUSI" in the $ESEC statement. The 
address of the leftmost byte of this work area is available 
to the user's transient by the value @USECW. See the 
sample program, statement 852. 
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Sample Program — Model 15 

Figure 7-3 is an example of a user sign-on security routine. 
The following notes explain the logic of the example: 

• A total of five macros must be included in the source 
code. These macros produce equates used elsewhere in 
the program. Their names are as follows: 

1. $EEQU 

2. $ECOM 

3. $ECPL 

4. $ETUB 

5. $ETNT 

These macros are available only on the CCP distribution 
disk cartridge (PID001 ). Either copy these to your 
own source library or perform the macro processing 
step by loading $MPXDV from the distribution pack. 

• This sample program expects sign-on data in the form 
/ONySSSSSS, where SSSSSS is the security code to be 
checked by $CC4YA. 

• As used by this program, the security data found in 
$CC4Z9 must be of the following form: 

Cj Ci Cj Cj Cx Ci Si Si Si Sj Si Si C2 C2 C2 C2 C2 C2 S2 S2 S2 02 S2 S2 ... 00 

CC . . . represents a six-character symbolic terminal 
name and SS . . . represents a six-position security field. 
There should be as many sets of CC . . . SS . . . data 
residing in $CC4Z9 as there are terminals to be used by 
an assignment set for CCP. The intent of this data is to 
provide a vehicle by which $CC4YA can verify a unique 
six-character sign-on code for each terminal so specified 
by the' symbolic terminal name. 
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• Statement 852 loads XR2 with the address of the left- 
most byte of the security data residing in the security 
data work area. Statement 874 compares the data 
entered from the terminal after the 'ON', and the data 
in the security data work area that is associated with 
one symbolic terminal name. 

• Statement 863 compares the symbolic terminal name 
to the names in the security data area. The program 
loops between statements 860 and 867 and is exited 
when the end of the security data area is reached (862), 
or when the name of the terminal signing on compares 
equal to one in the security data area (865). 

• Statement 883 puts '01 ' in symbolic location 
'TAXPRM'. This value indicates that the security data 
for the selected terminal verified correctly. After 
control is returned to $CC4TX and given to the CCP 
transient $CC4S0, a message will be sent to the selected 
terminal which will indicate that the sign on was 
successful. 



• Statement 890 puts 'FF' in symbolic location 
'TAXPRM'. This value indicates that the security data 
for the selected terminal did not verify correctly. After 
control is returned to $CC4TX and given to the CCP 
transient $CC4S0, a message will be sent to the selected 
terminal which will say that the sign on was un- 
successful. 

• Statement 898 causes the control to be passed to the 
CCP transient $CC4S0. This is accomplished as follows: 

a. The field TAXTID (at relative location 6 in the 
transient) contains the displacement from the 
beginning of the transient of the first three bytes 
(location OA-OC of the transient) which address 
the transient $CC4S0. At CCP startup, the bytes 
at locations OB and OC are set to the disk address 
of that transient. 

b. The branch at statement 898 gives control to the 
CCP Transient Area Scheduler, requesting it to 
pass control to the transient ($CC4S0) pointed 
toby the TAXTID field. 



tCCiYA 
ERR LOG OBJECT CODE 

4000 



4000 F2 87 OD 

A003 0000 
4005 400B 
4007 E2 06404040 
400C 5BE8C1 
400F 02 



4010 OD 00 44E6 405C 
4016 F2 01 3B 

4019 35 02 44E8 
401D 60 05 62 09 



4021 35 02 4467 
4025 85 02 17 
4028 6C 05 66 05 



ADDR STMT SOURCE STATEMENT 



4000 



4000 
4004 
4006 
4006 
400E 
400F 
4010 



* 

$CC4YA 

SCC4$$ 



2 
3 
4 
5 
6 
7 
7 
8 
9 

10 TAXPRM 

11 TAXTID 

12 YASO 
13 

14 

15 YAGO 

833 * 

834 * 
835 
836 
837 
838 
839 
840 
841 

842 * 

843 * 
844 
845 
846 
847 
848 

849 * 

850 * 
851 



$EBEG N-VA,Xl-SOfTID-l 
START 16384 
EQU * 
LEVEL 02 
RLD N 



YAGO 



USING $CC4YA,1 



OC 

OC 
DC 
DC 
DC 
EQU 



XL2'0000' 

AL2(YAS0( 

CLS'SO ' 

CL3'$YA' 

XL1'02' 

* 



TRANSIENT START DEFINITION 
»CC4*$ DEFINITION 



BYPASS PHASE ID'S, C/S'S 
DEFINE BASE ON TRANSIENT ENTRY 
TRANSIENT COMMUNICATION AREA 
INITIALLY 1ST CSN DISPLACEMENT 
PHASE ID, SPACE FOR C/S/N 
EYECATCHER CONSTANT 
RELEASE LEVEL 
END OF $EBEG CONSTANTS 



COME CHECK THE LENGTH OF THE TERMINAL MESSAGE AND IF CORRECT 
THEN MOVE IT TO THE TRANSIENT DATA AREA. 



CLC »CPEFL,YATEN 

JNE YAERR 

L $CPRCA,XR2 

MVC YAENDD<6.XR1I,9(,XR2) 



TEST FOR CORRECT INPUT LENGTH 
JUMP IF NOT 

XR2 POINTS TO END OF INPUT 
MOVE SIGN ON DATA TO TRANSIENT 



MOVE THE 6 CHARACTER NAME OF THE TERMINAL ATTEMPTING 
TO SIGN ON INTO AN AREA MITHIN THIS TRANSIENT. 

L aTUSTG,XR2 LOAD TUB POINTER 

L TUBTNT(,XR2),XR2 LOAD ADDRESS OF TERMINAL NAME T. 

MVC YANAHE(6,XR1),TNTNAM(,XR2I MOVE TERMINAL NAME 

LOAD XR2 MITH THE ADDRESS OF THE LEFTMOST BYTE OF THE 
SECURITY DATA FOUND IN THE SECURITY DATA HORKAREA. 



Figure 7-3 (Part 1 of 2). Sample User Security Routine for IWodel 15 
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«CC4YA 
ERR LOC OBJECT CODE 



^020 35 02 4411 
4030 E2 02 05 



AODR STMT SOURCE STATEMENT 



4033 BD 00 00 
4036 F2 81 IB 

4039 60 05 68 00 

4030 F2 81 07 

4040 E2 02 OC 
4043 CO 87 4033 



4047 90 05 06 62 



404B F2 01 06 



404E 7C 01 04 
4051 F2 87 03 



4054 7C FF 04 



4057 35 10 4403 



405 B OOOA 

4050 000000000000 

4063 OOOOOOOOOOOO 



4033 



4047 



4054 



41 FC 



4057 



405C 
4062 
4068 

00 FF 
0001 

4000 



852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 



L 
LA 



3USECWi)CR2 
5(,XR2>,XR2 



LOAD POINTER TO SECURITY DATA 
BUMP POINTER 



♦ 

* 
* 

YAOIOO 



COMPARE THE 6 BYTE TERMINAL NAME PREVIOUSLY SAVED AND THE 
6 BYTE TERMINAL NAMES FOUND IN THE SECURITY DATA MORKAREA. 
KEEP COMPARING TILL A MATCH IS FOUND OR TILL THE END DF 
THE SECURITY DATA AREA IS REACHED. 



EQO 
CLI 
JE 
CLC 

JE 
LA 

B 



* 
YAOUT 



YATEN 

YAENOO 

YANAME 

YAEOUF 
YAEQOl 



0(tXR2l,0 

YAERR 

YANAME{6,)(R1( ,0( ,XR2) 

YAOllO 

12((XR2),XR2 

YAOIOO 



TEST FOT END OF DATA 

JUMP IF END HAS BEEN REACHED 

COMPARE NAME ENTERED 6 NAME IN 

SECURITY DATA AREA 

JUMP IF A MATCH IS FOUND 

STEP POINTER TO NEXT NAME FIELD 

TO TEST THE NEXT NAME 



COME HERE WHEN A POSITIVE MATCH HAS BEEN MADE BETWEEN THE 

TERMINAL NAME AND THE NAME IN THE SECURITY DATA AREA. 

NOW COMPARE THE SIGN ON DATA ASSOCIATED WITH THE TERMINAL NAME. 



YAOllO 

* 
« 
* 



EOU 
CLC 



6(6,XR2I,YAENDD(,XR11 



JNE 



COMPARE SIGN ON CODE FOR 
TERMINAL WHO'S NAME JUST 
FOUND AND CODE IN SECURITY 
DATA FIELD 

JUMP TO ERROR EXIT IF CODE DOES 
NOT COMPARE 



THE SIGN ON DATA HAS COMPARED OK, SO PUT A X'Ol' IN 'TAXPRM'. 



HVI 
J 



TAXPRM(,XR1»,YAEQU1 
YAOUT 



PUT 'Ol' IN PARAMETER 

TO EXIT FROM THIS TRANAIENT 



THE SIGN ON DATA DID NOT COMPARE CORRECTLY, 
SO PUT A X'FF' IN ' TAXPRM< . 



EQU 
MVt 



TAXPRMCXRll.YAEQUF 



PUT 'FF' IN PARAMETER 

THIS SIGNIFIES THAT THERE WAS 

AN ERROR IN THE SIGN ON 

VALIDATION. 



COME HERE TO EXIT FROM THIS TRANSIENT 



EQU * 

L 8CC4TX,IAR 

CONSTANTS AND DATA AREAS 



DC 
DC 
OC 

EQU 
EQU 
ORG 
END 



XL 2 ' OOOA • 

XL5'0' 

XL6'0' 

X'FF' 

1 

$CC4YA+5G8 

$CC4YA 



TO XCTL 



INPUT DATA GOES HERE 
TERMINAL NAME GOES HERE 



Note: The following names, used in this figure, are defined 
in macros; the macros are not shown in this figure: 



Hame. 



Macro Defined in 



$CPEfL 
fCPRCA 
@TUSTG 
@CC4TX 
TUBTNT 
TNTNAM 



$ECOM 
SECOM 
$ECOM 
$ECOM 
$ETUB 
$ETISIT 



R||urB!7-3;^Ptai!tZat2l>. Sampleyser Security Routine for Model 15 
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Chapter 8. 3270 Display Format Facility (DFF) 



GENERAL INFORMATION 

The 3270 Display Format Facility is an optional feature 
of tlie Communications Control Program (CCP). This 
facility allows programs to control printer and display 
formats on the IBM 3270 Information Display System 
with a minimum of coding. Instead of requiring a special 
assembler language subroutine, programs can interface 
with the 3270 in a high level language (RPG II, COBOL, or 
FORTRAN IV). For those programs written in assembler 
language, CCP provides interfacing macros that can be used 
with DFF (see Chapter 7. Basic Assembler Programming 
for CCP). 



Overview 

The 3270 Display Format Facility offers: 

• An easy way to define printer and display formats (use 
special form for offline generation). 

• Formats that are program independent (stored on disk, 
not in the application program). 

• Formats that can be used by several programs con- 
currently (the format remains unmodified on disk, 
therefore can be used by several programs). 

• An easy way to handle data (all data is arranged in fields). 

• Two ways of supplying data— at generation time (as part 
of the field definition) or during execution time (by the 
application program). 

• The capability to change the characteristics or 
contents of a field on the display screen. 

• Testing formats offline before writing the application 
program. 

• Testing a terminal without writing a teleprocessing 
program. 
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Prerequisite Information 

In order to fully utilize DFF, it is essential that you have 
a basic understanding of the concepts and operation of the 
IBM 3270 Display system. This includes understanding 
the uses of: 

• Write Control Character (WCC) 

• New Line, End of Message, and Forms Feed (NL,EM,FF) 

• Selector Pen 

• Operator Identification Card Reader 

• Copy Control Character (CCC) 

• Attention Identification (AID) 

• Modified Data Tag (MDT) 

• Keyboard keys and functions 

For information on any of the above, refer to IBM 3270 
Information Display System Component Description, 
GA27-2749. 



DFF Routines 

The Display Format Facility provides four routines — the 
Display Format Generator, the Printer Format Generator, 
the Display Format Control, and the Display Format Test: 

1 . The Display Format Generator routine runs offline; 
that is, it does not run under control of CCP. The 
display format generated by this routine is used by 
the Display Format Control Routine (DFCR), which 
does run under CCP. The Display Format Generator 
can run in either level of a DPF system, and it can 
run while CCP is executing. If DFGR is running 
while CCP is executing in the other level, the format 
being processed cannot be placed on the pack from 
which CCP was loaded; if this is attempted, an EO 

F PP halt occurs. 

2. The Printer Format Generator runs offline; that is, 
it does not run under control of CCP, although the 
printer format it generates is used by the Display 
Format Control Routine (DFCR), which does run 
under CCP. The Printer Format Generator can run 
in either level of a DPF system, and it can run while 
CCP is running. If PFGR is running while CCP is 
executing in the other level, the format being processed 
cannot be placed on the pack from which CCP was 
loaded; if this is attempted, an EO F PP halt occurs. 

3. The Display Format Control routine helps the transfer 
of data to and from the 3270 terminal. This routine 
does run under control of CCP. 

4. The Display Format test routine runs offline; that 

is, it does not run under control of CCP. This routine 
is used as a development tool for designing and testing 
printer and display formats. 
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rwPUT 



Source 
Library 




n 



Two forms are used in preparing material for either the printer or the display format generators: the 
printer/display layout sheet, and either the printer format specifications sheet (for PFGR) or the dis- 
play format specifications sheet (for DFGR). The following describes the procedure used to generate 
a format. Descriptions applicable only to a particular routine are contained solely within its column; 
descriptions applicable to both routines span both columns. 



Printer Format Generator 



Display Format Generator 



1 



_ . 1 Arrange the fields on the layout sheet just as they are to appear on the form or display. 

I j 

I If the format has more than 33 lines, more than [include all fields that can be written to and/or 

I I one sheet is needed. | received from the 3270. 

I jUse the completed layout sheet as a guide in completing the two parts of the format specifications 

1 sheet (control and field definition forms). Provide for each field the name, type, location, associated 

J data, and other needed information. 



romitii G'^nf^t jior 



OUTPUT 



Format 
Specifications 
Log and 
Diagnostics 



I pfransfer the information from the specifications sheet to the system input device or to the s 

"* I library using $MAINT. 

I Jiz; 

'— 1 Sy stem input records or source library statements are read by the format generator routine. 



The format generator routine: 
I • Produces a printout of the specifications forms. 

"I 



• Analyzes specifications for errors. 

• Logs diagnostic error messages. 



The format generator routine: 
I • Produces a printout of the specification forms. 
I • Analyzes specifications for errors. 
I * Lo gs diagnostic error messages. 



j [The formats are cataloged into an object library under a user-designated name. 



M 

o 



■n 
o 




1 



iThe format is built in two parts: 

I • Field descriptor table containing the symbolic field names and is used to identify those fields for 

which data must be supplied in the user's output record area, and to support overrides to fields 

within the format. 
[_• Co mplete data stream including control characters. 



r" 



Input and 
Output Record 
Area Formats 



' The printed information includes: 
I • Information used by the application program: 
I — Required output data and the order of 
' output data fields that must be provided 

I in the user's output record area 

. I • Information used in preparing the CCP assign- 
ment set under which the application pro- 
I gram will execute: 
I — The decimal length of the field descriptor 

table 
I — The decimal length of the output data 
I stream 



CO 
00 



I The printed information includes: 
I • Information used by the application program: 
' — Required output data and the order of 
I output data fields that must be provided 

I In the user's output record area 

■ — Input data and the order of input data 
I fields as they are passed to the applica- 

I tion program in the user's input record 

! area 

I • Information used in preparing the CCP assign- 
I ment set under which the application pro- 
gram will execute: 
I — The decimal length of the field descriptor 
I table 

— The decimal length of the 3270 output 
I data stream 

I — The decimal length of the 3270 input data 
I stream 



Modifiers to existing operations and tliree additional oper- 
ations (Copy, Put Override, and Erase) support the 3270 
functions. The Copy operation is used to transfer a format 
between devices attached to the same 3271 control unit. The 
Put Override operation is used to (1) change the type, repo- 
sition the cursor, modify the data content (or any combi- 
nation of these) of any field or fields defined in the format, 
and/or (2) request input from only selected fields within the 
display format. The Erase operation fills the data positions 
of all unprotected fields (input field types 1, 2, 3, 4 and out- 
put/input field types 1 , 2, 3, 4) with null (hex 00) characters. 

In all cases, additional entries in the CCP application 
program's output record area are required. For example, 
when requesting that a format be written to a 3270, the 
name of the format must be given in the record area. In 
the input record area, allowance must be made for the 
AID character. 



Field Classes 

The field class is selected at format generation time by the 
application programmer when using the Display Format 
Generator. When using the Printer Format Generator, the 
field class is assumed to be output. The field class deter- 
mines what the terminal operator can or cannot do with 
that field (see Figure 8-1 ). For prompting or displaying 
messages to the terminal operator, an output class would 
be used. If data for a field is to be provided by the terminal 
operator, an input class would be used. If data for a field 
is to be initially provided by the application program but 
allowed to be changed (using the keyboard) by the terminal 
operator, an output/input class would be used. Lastly, a 
field class has been provided solely in support of the selector 
pen. 

A description of the four field classes follows: 



Requests for display or printer format services use the 
same application interface as do other CCP requests; the 
application program passes a parameter list and a record 
area. 



• Output field— contains data that cannot be changed 
by the terminal operator. The data for the field is 
supplied either during format generation or during 
execution of the application program. 



It is essential that the printer/display layout and specifica- 
tion sheets be completed accurately so that the control 
routine can operate exactly as intended. To do this, you 
need a working knowledge of such things as the field con- 
cept of handling data and the characteristics of each type 
of field within each of the field classes. You need to know 
how to determine lengths of fields, what field attributes 
are and how the cursor is positioned. 



FIELD CONCEPTS 

Definition 

All 3270 display information is treated as a set of fields 
within a record rather than as a string of data. Each field 
has certain characteristics associated with it— such as whether 
it is alphameric or numeric. Field characteristics are 
defined by type and class. 



• Input field— is an area reserved for keyboard entry; data 
for the field is entered by the terminal operator. 

• Output/Input field— contains data which has been 
supplied either during format generation or during 
execution of the application program. This data can be 
changed by the terminal operator using the keyboard. 

• Selector Pen Detectable (SPD) field— allows the termi- 
nal operator to select fields by using the selector pen. 

All classes of fields may be used within the same display 
except when the SPD field is used as an attention field (see 
Attention Fields). 



Class describes whether the field is output, input, output/ 
input, or selector pen detectable. 

Type describes what group of characteristics are associated 
with the field. 
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FIELD CLASSES 



r 



\ 



TYPES- 



OUTPUT INPUT 



OUTPUT/INPUT 

^ |i| 2I 3I4I bIs 



SELECTOR PEN 
DETECTABLE (SPDj 



Designator Character" 





PROTECTED 




UNPROTECTED 




ALPHAMERIC 




NUMERIC 




MODIFIED DATA TAG -OFF 


CHARACTER- 


MODIFIED DATA TAG - ON 


ISTICS 


NORMAL INTENSITY 




HIGH INTENSITY 




NON -DISPLAY 




DETECTABLE 




NONDETECTABLE 



* * * 
» # * 

* * * 

■X- 

# 

* « 



1 














) 
























* 


* 














* 


* 


* 


* 


* 


* 


* 


* 






* 


* 


* 


* 


* 


* 










* 


* 






« 




* 




* 


* 






* 




* 


* 






* 


* 




# 




* 






* 


* 




* 






# 


* 


* 


« 


# 


* 


* 


* 










* 


* 






















* 


* 


* 


* 






* 


* 


* 




* 












* 




* 










* 




* 




* 












* 




* 


















* 


# 


* 


* 










# 


* 


* 






if. 




m. 












* 




* 










* 




* 




* 


# 


# 


# 


* 




* 




* 


* 


* 


* 



1 


2 


3 


4 


5 


6 


7 


? 


7 


> 


> 


? 


^ 


bi 


* 


* 


* 


* 


* 


# 


* 
















* 


* 


» 


» 


« 


* 


* 
















* 


* 






* 


* 


» 






# 


* 








* 




* 






« 






* 




» 






» 










* 






* 


# 


* 


« 




« 


# 










# 







(This information also appears on the reverse side of the display layout sheet.) 

Note: Shaded squares indicate that these fields are not intended to be used as detectable fields. To prevent 
accidental detection of such a field, users should avoid using one of the characters |i, ?, >, or null (X'OO') 
as the first character in the field. 

Figure 8-1 . Field Classes; Types Witliin Classes; and Characteristics Associated With Each Type 



The field class selected determines, to some extent, the 
characteristics of a field. Differences in characteristics 
by class are: 

• Protected or Unprotected - A field is protected if the 
terminal operator cannot use the keyboard or operate the 
identification card reader to enter, modify, or erase data 
within that field. Output and selector pen detectable 
fields are protected. Input field types 5 and 6 and 
output/input field types 5-8 are protected. 

• Alphameric or Numeric — All output and selector pen 
detectable fields are alphameric. Input and output/input 
fields may be either alphameric or numeric (see Fie/d 
Types). 

• Modified Data Tag ON or OFF — The modified data tag 
associated with each field causes the data from that field 
to be returned (MDT-ON) or not returned (MDT-OFF) 
during an input operation from the terminal. The 



modified data tag may be set ON by (1 ) a keyboard input 
to the field, (2) a selector pen detection in the field, 
(3) a magnetic card read-in operation, (4) application 
program control, or (5) using the ERASE EOF key. The 
modified data tag can be set OFF by (1 ) a selector pen 
detection in the field, (2) application program control, 
or (3) use of the ERASE INPUT key. 

When data for a particular field is not received from the 
terminal, blanks are passed to the application program. 

When data for a field is received from the terminal, it is 
passed on to the application program. 
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Setting the modified data tag conditions what is received 
as input from the terminal and passed to the application 
program. Therefore, field classes affected by setting the 
modified data tag are: input, output/input, and selector 
pen detectable fields. For input fields, data will be received 
from the terminal only if the terminal operator has per- 
formed a keyboard input, ERASE EOF, or a magnetic 
card read-in operation. For output/input fields, data will 
normally be received from the terminal (see Output/Input 
Field Types for a discussion on output/input fields that 
have the MDT set to OFF, types 5 and 6). The terminal 
operator should not use the ERASE INPUT key with an 
output/input field. For selector pen detectable fields, 
data may or may not be received from the terminal, even 
though the field type selected (see Field Types) required 
that the modified data tag be set to ON initially. Detec- 
tion by the terminal operator, on a selector pen detectable 
field can set the MDT from ON to OFF or from OFF to 
ON. 



Field Types 

Within a field class, the field type selected also determines 
characteristics of a field (see Figure 8-1). The type is 
selected at format generation time by the application 
programmer when using the Display Format Generator. 
When the Printer Format Generator is used, the field type 
does not apply. 

Choice of characteristics by type are: 

• Alphameric or Numeric - Input and Output/input 
fields may be specified as either alphameric or numeric. 

• Modified Data Tag ON or OFF - An output/input field 
would normally have its modified data tag set to ON. 
For special use of an output/input field with its modified 
data tag set to OFF, refer to types 5 and 6 under 
Output/Input Field Types. 

A selector pen detectable field may be specified with its 
modified data tag set to either ON or OFF. The initial 
setting can be changed by the terminal operator using the 
selector pen. 

• Intensity of Normal, High, or OFF (nondisplay) — 
Nondisplay fields are not visible on the screen or printed 
on the printer. Field types are also provided which allow 
a field to be displayed with normal intensity or high 
intensity. 



With the 3270 terminal, both the application programmer 
and the terminal operator should be aware that all 
high-intensity fields, regardless of class, have the potential 
of being detectable by the selector pen (see the note on 
Figure 8-1 ). To prevent an erroneous detection on a 
high-intensity non-SPD field, the first character in the 
field should not be a blank* null, question mark, or 
greater than character. This caution must be exercised 
by the application programmer when providing data 
for an output or output/input field class at format 
generation time or application program execution time. 
This condition can also be caused by the terminal 
operator when keying data or when using the cursor 
positioning keys. 

If an erroneous detection on a high-intensity non-SPD 
field occurs, the interpretation of the data passed to 
the application program is the responsibility of the 
user (the designator character will not be separated 
from the data, and the data will be handled as usual 
for alphameric and numeric fields). Following is a 
breakdown of characteristics of each type under each 
class. 
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Output Field Types 

Typo _^ 




Q 



Protected 

Alphameric 

MDT-OFF 



Normal intensity 



Nondetectabici 



Protected 

Alphameric 

MDT-OFF 



m 



Protected 

Alphameric 

MDT-OFF 



High intensity 



Detectable 



Nondisplay 



Nondetectable 



All types of output fields have the characteristics of being 
protected, alphameric with the modified data tag set to 
OFF. 

On input operations, data from output fields will not be 
passed to the application program. 

The data for output fields is always handled as an alpha- 
meric value. Data will be displayed exactly as presented, 
whether supplied at format generation time or during 
execution time by the application program. If there are 
numeric values in the field, the application programmer 
is responsible for such editing of data as insertion of 
decimal points and other characters to properly display 
positive and negative quantities. 

Type 1 (normal intensity) and type 2 (high intensity) \ 
output fields are used where data is to remain displayed. 
For example, headings and labels would appear on the screen 
and would not be subject to change by the terminal 
operator. Type 2 is indicated as being detectable only 
because it also has the high intensity characteristic; it is 
not intended that the selector pen be used. See the dis- 
cussion of intensity under Field Types. 

A type 5 field with the nondisplay characteristic can be 
changed using the override facility at execution time to 
become a type 1 or type 2 with the corresponding 
intensity characteristic. This is used to display appropriate 
error messages or comments as they are needed (see Put 
Override). 
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Input Field Types 



Type 



Characteiisl'ic' 




Z>\I} B 



MDT-OFF 



MDT-OFF 



MDT-OFF 



Q 



Unprotected 


Unprotected 


Unprotected 


Unprotected 


Alphameric 


Alphameric 


Numeric 


Numeric 



MDT-OFF 



MDT-OFF 



Q Q 



Protected 


Protected 


Alphameric 


Numeric 



MDT-OFF 



Normal 
intensity 


High 
intensity 


Normal 
intensity 


High 
intensity 


Non- 
display 


Non- 
display 


Non- 
detectable 


Detectable 


Non- 
detectable 


Detectable 


Non- 
detectable 


Non- 
detectable 



Unprotected 


Unprotected 


Alphameric 


Numeric 


MDT-OFF MDT-OFF 


Non- 
display 


Non- 
display 


Non- 
detectable 


Non- 
detectable 



All input fields have the modified data tag set to OFF. 

Type 1 is the normal alphameric input field. 

Type 2 allows for accenting an alphameric field (high 
intensity). 

Type 3 is the normal numeric input field. 

Type 4 allows for accenting a numeric field (high intensity). 

A field specified as type 5 at format generation time can 
be changed using the override facility at execution time 
to become a type 1 with normal intensity or type 2 with 
high intensity. 

A field specified as type 6 at format generation time can 
be changed using the override facility at execution time 
to become a type 3 with normal intensity or type 4 with 
high intensity. Note that type 5 is alphameric while type 6 
is numeric. 



Types 2 and 4 are indicated as being detectable only because 
they also have the high intensity characteristic; it is not in- 
tended that the selector pen be used. See the discussion 
of intensity under Field Types. 

Type 7 input field is intended primarily for use as a security/ 
authorization field. Data can be entered from the keyboard 
without displaying the data on the screen. Handling of 
the security/authorization data is left to the user. This 
field type may be changed using the override facility at 
execution time to a type 1, 2, or 5. 

Type 8 input field is intended primarily for use as a 
security/authorization field. Data can be entered from 
the keyboard without displaying the data on the screen. 
Handling of the security/authorization data is left to the 
user. This field type may be changed using the override 
facility at execution time to a type 3, 4, or 6. Note that 
type 7 is alphameric while type 8 is numeric. 
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Output/Input Field Types 



m 



H m 



H 



a a H H 



Unprotected 


Unprotected 


Unprotected 


Unprotected 


Protected 


Protected 


Alphameric 


Alphameric 


Numeric 


Numeric 


Alphameric 


Numeric 


MDT-ON 


MDT-ON 


IWDT-ON 


MDT-ON 


MDT-OFF 


MDT-OFF 


Normal 
intensity 


High 
intensity 


Normal 
intensity 


High 
intensity 


Non- 
display 


Non- 
display 


Non- 
detectable 


Detectable 


Non- 
detectable 


Detectable 


Non- 
detectable 


Non- 
detectable 



Protected 



Alphameric 



MDT-ON 



Non- 
display 



Non- 
detectable 



Protected 



Alphameric 



MDT-ON 



Normal 
intensity 



Non- 
detectable 



The word Output in the class designation indicates that the 
field contains data which has been supplied at generation 
time (see Field Definition Form) or by the application 
program at execution time. The Input indicates that the 
data may be changed by the terminal operator using the 
keyboard. 

An example of using the output/input field would be in 
checl<ing a "SHIP TO" address. The address is placed on 
the screen, is checked to see that it is still correct, is 
changed if necessary, and is returned to the application 
program. 

Type 1 is the normal alphameric output/input field. 

Type 2 allows for accenting an alphameric field in the 
display (high intensity). 

Type 3 is the normal numeric output/input field. 

Type 4 allows for accenting a numeric field (high intensity). 

Types 2 and 4 are indicated as being detectable only 
because they also have the high intensity characteristic; 
it is not intended that the selector pen be used. See the 
discussion of intensity under Field Types. 



A field specified as type 5 at format generation time can be 
changed using the override facility at execution time to 
become a type 1 with normal intensity or type 2 with 
high intensity. 

A field specified as type 6 at format generation time can 
be changed using the override facility at execution time 
to become a type 3 with normal intensity or type 4 with 
high intensity. Note that type 5 is alphameric while 
type 6 is numeric. 

A field specified as type 7 or 8 at format generation time can 
be changed using the override facility at execution time 
to become a type 1 with normal intensity, a type 2 with 
high intensity, or a type 5 nondisplay. Note that types 1 
and 2 have modified data tag on while type 5 has modified 
data tag off. 

Type 3, 4, or 6 fields cannot be overridden to types 7 
or 8. Also, type 7 and 8 fields are not interchangeable 
by means of the Put Override facility. 

Note: You will be unable to copy a display using the 
Copy operation if the field whose data begins in row 
1 column 2 is a type 5, 7, or 8 output/input field. 
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Selector Pen Detectable Field (SPD) Types 



Type 



>QSSH[]] H H 



Designator 



Chaiactf nstics 






? ? > 

Protected Protected Protected 

Alphameric Aipiiamerlc Alphameric 



MDT-OFF 



Normal 
intensity 



Detectable 



MDT-OFF 



High 
intensity 



Detectable 



MDT-ON 



Normal 
intensity 



Detectable 



> 


? 


16 


% 


Protected 


Protected 


Protected 


Protected 


Alphameric 


Alphameric 


Alphameric 


Alphameric 



MDT-ON 



High 
intensity 



Detectable 



MDT-OFF 



Non- 
display 



Non- 
detectable 



MDT-OFF 



Normal 
intensity 



Detectable 



MDT-OFF 



High 
Intensity 



Detectable 




As indicated, SPD fields are selection fields, nondisplay, or 
attention fields. 



Selection: For fields specified as types 1 , 2, 3, or 4 at 
format generation time, the designator character is a visible 
indicator on the screen and indicates whether the MDT is 
off or on. The designator is automatically assigned during 
generation of the display format based on type specified. 
Therefore, the user should not include the designator as 
part of the data for an SPD field. When sensed with a 
selector pen, the designator changes as shown below: 



Designator 
? (type 1 ) 
? (type 2) 

> (type 3) 

> (type 4) 



Selector Pen Detection Results 

Changes to > (type 3) and MDT 

set to ON 

Changes to > (type 4) and MDT 

set to ON 

Changes to ? (type 1) and MDT 

set to OFF 

Changes to ? (type 2) and MDT 

set to OFF 



Nondisplay: Since type 5 is a nondetectable field, it 
cannot be changed by the use of the selector pen. A field 
specified as type 5 at format generation time can, however, 
be changed using the override facility at execution time. 
All SPD types are interchangeable by using the Put Over- 
rides facility. 

Attention: If an attention field (type 6 or 7) is present, 
only output and SPD fields can be contained in the same 
display format. Use of the selector pen to generate I/O 
pending will result in transmission of only the addresses 
of fields in which the modified data tag was set on (field 
data not included). Users who wish to combine SPD 
field input with keyed input must use the keyboard 
(ENTER or PF keys) to cause the data to be sent to the 
application program rather than using SPD attention. 
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PLANNING THE PRINTER/DISPLAY LAYOUT 



Attributes 



Before working with tiie printer/display layout slieet (Fig- 
ure 8-2), tlie application programmer must be aware of the 
space requirements for each field class. The fields, as 
designed on the printer or display layout form, will have a 
direct correspondence with the information as It appears 
in the buffer of the 3270 screen or printer. 



LEGEND: 



D 



Defining attribute 
Data field length 



I I Terminating attribute 

t 
SL Starting location (first data position) of the field 



Designator 



[__J Null character (X'OO') appears as a blank space on 
the screen 



Attributes are generated only when the Display Format 
Generator is used; they are not generated when the Printer 
Format Generator is used. 

The defining attribute is a nondisplay character located in 
the character position immediately preceding a data field 
and defines the characteristics of the display field that 
follows. The code for the attribute is developed by the 
format generation program based on field class and type. If 
data in an output, input, or output/input field must start 
at line 1, position 1, its defining attribute will be placed in 
the last display location (line 12, position 40 on Model 1 or 
line 24, position 80 on Model 2). Be sure this space is 
reserved when planning the rest of the display. 

Note: When data for an output, input, or output/input 
field begins in line 1, position 1 of a display, that field 
is the last field transmitted in the 3270 text stream. The 
location of the field in the user program record area, 
however, corresponds to its location in the display. 



Items in the legend apply to the illustrations in the following 
discussion. 





Defining 
attribute 



The terminating attribute is a nondisplay character located 
in the character position immediately following a data field 
of an input or output/input class. This terminating attribute 
keeps the terminal operator from keying beyond the 
defined limits (data length) of the field and provides the 
function of autoskip/nonautoskip as defined at format 
generation time (%ee Autoskip and Cursor Positioning). 
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Output Class 



Input and Output/Input Classes 



SL 



I 
SL 

The total length of each output field on the printer/ 
display layout sheet = data field length + one for the 
defining attribute when the Display Format Generator 
is used. When the Printer Format Generator is used, 
the total length of each field on the layout sheet 
equals the data field length only. 

The defining attribute determines the characteristics 
of the display field that follows. This attribute 
character is determined at format generation time 
based on the type as designated on the field definition 
entry. One position on the layout must be reserved 
for this nondisplayable character located immediately 
preceding the data field. 

The location of the first data position is entered in 
the field starting location on the field definition 
form. It must be the location immediately following 
the defining attribute character. 

• Data field length (does not include defining attribute) 
is entered on the field definition form. Positions on 
the layout must be reserved equal to the data length. 



-D 



t 

SL 

Total length on the printer/display layout sheet = field 
length + two for beginning and ending attributes (or field 
length + one if there is no allowance for a terminating attri- 
bute (see part three under Autoskip and Cursor Positioning). 

The defining attribute determines the characteristics 
of the display field that follows. This attribute 
character is determined at format generation time 
based on the type as designated on the field definition 
entry. One position on the layout must be reserved 
for this nondisplayable character located immediately 
preceding the data field. 



SL The location of the first data position is entered in 
the field starting location on the field definition 
form. It must be the location immediately following 
the defining attribute character. 



D 



■*-The data field length is entered on the field definition 
form. Positions on the layout form must be reserved 
equal to the field length. The field length does not 
include either the defining or the terminating attribute. 

The terminating attribute limits the amount that can 
be keyed in. Based on autoskip/nonautoskip indica- 
tion on the field definition form, this terminating 
attribute will reposition the cursor after a data char- 
acter is entered into the last position of the field. 
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SPD Class 

For SPD fields, use the following guidelines for reserving 
space on the printer/display layout sheet. 






I L..L..L.J 

SL 

SPD field Is the first field on a line and not the last field 
on the line, or, the previous field on the line is SPD and 
this SPD field is not the last field on the line. 

Total length allowed for this SPD field on the layout sheet 
is the field data length plus five. 



f — I — I — mmi I 



t 

SL 



1 T 1-~ 

-! I i 



The preceding field on the line is another class and this SPD 
field is not the last field on the line. 

Total length allowed for this SPD field on the layout sheet 
is the field data length plus eight. 



UM 



t 



O 



SL 



The SPD field is the last field on the line and the previous 
field on the line is SPD, or, this SPD field is the only field 
on the line. 

Total length allowed for this SPD field on the layout sheet 
is the field data length plus three. 



n 



SL 



! I 

I J 



D 






a 



t 

SL 

The preceding field on the line is another class and this 
SPD field is the last field on the line. 

Total length allowed for the SPD field on the layout sheet 
is the field data length plus six. 



The defining attribute determines the characteristics 
of the display field that follows. This attribute 
character is determined at format generation time, 
based on the type as designated on the field definition 
entry. One position on the layout must be reserved 
for this non-displayable character. 

The designator character must immediately follow 
the defining attribute character. The designator 
character is determined at format generation time, 
based on the field definition type entry. One po- 
sition on the layout must be reserved for this 
character. 

The location of the first data position must be enter- 
ed in the field starting location on the field definition 
form. This position must be located immediately 
following the designator character. 

• The field data length is entered on the field definition 
form. Positions on the layout form must be reserved 
equal to the field length. The field length does not 
include leading nulls, defining attribute, designator 
character, trailing nulls, or terminating attribute. 

Leading nulls are required when the preceding field 
on the same line is of another class. Trailing nulls 
are required unless the SPD field is the only, or last, 
field on the line. To reserve the correct number of 
positions on the layout form, refer to the guidelines 
above. 

A terminating attribute is required when the SPD 
field is the only, or last, field on the line. In either 
of these cases, one position on the layout must be 
reserved for this non-displayable character located 
immediately after the data field. The terminating 
attribute for an SPD field is used to prevent extrane- 
ous data, at the end of the current line or from the 
next line, from being transmitted along with the 
data for the SPD field during an input operation. 
Even though such a circumstance could occur only 
when using over/ay screens (see index entry), all 
SPD fields ending a line are required to have the 
terminating attribute. 
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When SF'D is first or last field on a line: 



TIIIG IS AN SPD riELD 



If SF'D fieUI IS hiMoii 

a line, leadimj null". IX'OO'I 

are omitted. 



THIS IS AN GPD FIELD 



I If SPD n.-lilislaston 
J iiiit-', riciilinij nulls 
(X-no'K,i, ..mittedbut 
■I ■ •' !■! attribute 



li !!• i 111 ij 



When SPD Is not first or last field on a line: 




3 null (X'OO') 
charactprs precede 
defining attribute 
if preceding field 
on same line is not 
an SPD field. 



Designator (displayed) f o _ n 



Defining attribute 
(nondisplay) 



(X'OO') 
immediately 
follow data. 



Defining attribute 
(nondisplay) 



The entire field with its attributes and designator must be 
on the same line. 

Note: For a type 5 SPD field, the designator and data are 
also not displayed. 
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AUTOSKIP AND CURSOR POSITIONING 

The way autoskip functions with input and output/input 
fields depends upon the relative positioning of successive 
fields. 

1 . When there are one or more spaces between the trail- 
ing attribute of one field and the defining attribute 
of the next field: 



D- 



•ni 



Without autoskip, the cursor is positioned after 
the trailing attribute. TAB or SKIP must then 
be pressed to move the cursor to the first char- 
acter position of the next unprotected field. 






■D 



With autoskip, the cursor is 
positioned at the first data 
character of the next unprotected 
field. 



When the trailing and defining attributes are in 
adjacent positions: 



Q 



□ 



unprotected 



t_ 



-D 



Cursor positions at the first character of the unprotected 
field with or without autoskip. 



n 



-n:]- 



protected 



D- 



unprotected 



-D 



Without autoskip, the cursor positions at the first character 
of the protected field (unless this field is a type 6 input 
or output/input field). Use TAB or SKIP to move cursor 
to next unprotected field. 



With autoskip or if protected field is a type 6 input or 
output/input, the cursor positions at the first character 
of the next unprotected field. 
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3. When two spaces were not allowed between fields: 



I I, 



following 



field 



If two spaces were not allowed by the application programmer during layout 
of the fields, the terminating attribute is dropped. The single space between 
the fields will be used for the attribute character of the next field. 



next field 



(protected) 



unprotected 



-D 



The cursor positions at the first data character of the next 
field (unless this field is a type 6 input or output/input 
field). Use TAB or SKIP to move the cursor to the next 
unprotected field. 



If the next field is a type 6 input or output/input field, the 
cursor positions at the first data character of the next un- 
protected field. 



Defining Data 

Defining Data at Format Generation Time 

During generation time, the user may provide data on the 
field definitions for output, output/input, and SPD fields. 
Such data is in the form of characters and/or spaces up to 
the specified field length. 

The length of each field is defined at format generation 
time (see Figures 8-3 and 8-4). Each SPD field must be 
contained on one line. Therefore, the field length of SPD 
fields cannot exceed 37 for a Model 1 screen or 77 for a 
Model 2 screen. All other fields cannot exceed 240 charac- 
ters. Minimum length for all fields is one. 

See Data in Numeric Fields for techniques in handling 
numeric data. 

Defining Data at Execution Time 

Data can be provided for all but input fields during 
execution time. The length of data to be provided must 
equal the field length specified at format generation time. 
Less data than the amount specified by the field length 
cannot be provided. 

See Data in Numeric Fields for techniques in handling 
numeric data. 



Data Entry at the Terminal 

The terminal operator, when keying data for input fields, 
must start with the first character location of the field. 
Starting with any other position causes the control routine 
to return all blanks in the field. 

See Data in Numeric Fields for techniques in handling 
numeric data. 

Data Passed to the Application Program 

On input from the 3270 terminal, alphameric data is padded 
on the right with spaces to the field length when less data 
than that required by the field length is entered by the ter- 
minal operator. 

Numeric data, received from numeric fields, is right-adjusted 
and padded with blanks on the left to the field length when 
less data than that required by the field length is entered by 
the terminal operator. 

For input and output/input fields, it is assumed that data 
will always be received from the terminal. If no data is 
received, the fields are returned with blanks. 

When the terminal operator uses the ENTER or PF keys to 
initiate the input operation and data is not received from 
the terminal for SPD selection, the field (alphameric) will 
be filled with spaces. Since the designator is not passed as 
data, the field length should not include the designator 
character. 
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When the SPD attention field is used to generate the I/O 
pending condition, field data is not included with input 
from SPD selection and SPD attention fields from the 
terminal. The fields passed to the application program are 
filled with spaces except for a greater than (» character in 
the leftmost position for any field in which the modified 
data tag was ON. By testing a field, the application pro- 
grammer can determine those fields in which the modified 
data tag was or was not set. 

Fields in the users input record area must be the same 
lengths as the field lengths specified on the field definition 
forms. Field lengths are used by the Display Format Con- 
trol Routine in moving data into the user's input record 



Data in Numeric Fields 

All data in numeric fields should be right-justified when 
entered at generation time. Negative values in numeric 
output/input fields are provided at generation time by en- 
tering the minus sign (-) after the rightmost numeric digit. 
For example, a negativethirty-five would be given as 35-. 
Space for the negative sign must be allocated in the gen- 
erated format when defining the field length. If numeric 
data is to be later entered by the terminal operator, the 
numeric fields may be set to zeros so that the field is visi- 
ble to the operator. 

Note: Continuation cards must be provided if the nu- 
meric field is designated as being longer than forty digits 
(or thirty-nine digits and a minus sign). 

Data provided (with Put Message or Put Override opera- 
tions) in numeric fields at execution time must be the same 
length as the field length specified at generation time. Nu- 
meric fields are always right justified. Negative values pro- 
vided for numeric input and output/input fields must com- 
bine the minus sign (-) with the rightmost digit. For 
example, a negative thirty-five is given as 3N. Before send- 
ing the message to the 3270, DFCR will move the numeric 
digits one position to the left, convert the N to a five and 
place a negative sign in the rightmost position of the field. 
Space for the negative sign must have been allocated at 
generation time. DFCR also moves the digits of a positive 
number one digit to the left. 

Note: In a one-position numeric output field, the minus 
sign would be all that would be sent for a negative value. 



To enter data in numeric fields, the terminal operator should 
either 



• Right-justify data in the field and left pad with zeros or 
blanks, or 

• First key in the numeric data left-justified; press ERASE 
EOF; and then press either SKIP or TAB. The cursor 
will be positioned at the next designated cursor location. 
On input, DFCR will right-justify the data in the field 
and pad with leading blanks if less data than the field 
length is received. DO NOT press the space bar after 
pressing ERASE EOF. 

Numeric fields are not examined by DFF for valid numeric 
characters. The application program is responsible for 
validation of its input data. 

The terminal operator must enter negative numerics in a 
numeric field by entering a trailing negative sign in the 
field. For example, a 35- is entered. DFCR will right- 
adjust the numerics and pad with blanks on the left to 
the field length when less data than that required is 
entered. The five will be converted to an N and the appli- 
cation program receives a right-adjusted 3N as data input 
for the field. 

Note: If the minus sign (— ) was the only character 
received, an X'DO' (equivalent to a —0) is returned to 
the application program. 

Since some languages are more restrictive than others, 
particularly in the form of numeric data supported, the 
application programmer must be aware of their differences 
and inform the terminal operator what characters can be 
used. If the data conventions of the language are not 
enforced by the compiler generated object code, the appli- 
cation programmer must validate the data keyed by the 
terminal operator. 



Number of Fields 

A total of 256 fields can be defined for a printer or display 
format. This does not include F-type output fields. Any 
number of these fields may be defined. The combined total 
of Input, Output/Input, and SPD fields cannot exceed 200 
fields. 
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A maximum of seven SPD fields in the 3277 or 3275 
Model 1 or thirteen SPD fields in the 3277 or 3275 
Model 2 may be on any given display line. This is, of 
course, because the minimum length of an SPD field is 
six with no trailing attribute or four if there is a trailing 
attribute. The minimum of six consists of: the defining 
attribute, the designator, one data character, and three 
trailing nulls. The last SPD field on a line can require as 
few as four positions since the trailing nulls are not required. 

When mixing detectable and nondetectable fields, a maxi- 
mum of 15 defining and/or terminating attributes may be 
on a given line. Whereas all fields generate a defining 
attribute, input and output/input fields generate a defining 
and terminating attribute. 

Note: It is possible to define up to 15 fields on a line by 
positioning fields following the input and output/input 
fields so that their defining attribute overlays the 
terminating attribute of the previous field. However an 
SPD field following an input and output/input field will not 
overlay the previous terminating attribute. The leading 
nulls cannot overlay terminating attributes. See Chapter 8 
for the use of nulls with SPD fields. 



RECORD CONCEPTS 

Fields are received from and passed to the application 
program as data records. The user defines data record 
formats by defining the fields on the field definition 
forms. 



Display Output Record Format 

When writing the initial display format, data can be supplied 
during execution time for output, output/input, and SPD 
fields. If data Is to be supplied, the format of the associated 
output record is determined by the order and field lengths 
of the fields as they are defined on the field definition 
form. Field names, field lengths, field end positions (for 
RPG SUBR92 use), and length of output record area 
required are listed on the printed output from DFGR. 



Printer Output Record Format 

When the initial printer format Is written, data can be 
supplied during execution time. If data is to be supplied, 
the format of the associated output record is determined 
by the order and field lengths of the fields as they are 
defined on the field definition form. Field names, field 
lengths, field end positions (for RPG SUBR92 use), and 



length of output record area required are listed on the 
printed output from PFGR. 



Input Record Format 

Since it is possible to receive data from each input, output/ 
input and SPD field defined, the input record area must 
provide an assigned location for every field. The format of 
the associated Input record area is determined by the order 
and field lengths of the fields as they are defined on the 
field definition form. The symbolic name, field length, 
assigned end position for each Input field (for RPG 
SUBR92 use), and length of Input record area required are 
listed on the printout from DFGR. 

Note: With the Put Overrides operation, the application 
programmer can choose between receiving input from all 
fields or only from selected fields (see Put Override). 

The order of processing an input record area is: 

1. Examine the CCP return code. 

2. Examine the attention Identifier (AID). 

3. Process the fields in the Input record area. 

The attention identifier (AID) is a single character immed- 
iately preceding the Input fields in the user's input record 
area. The AID Is set by the terminal when the operator 
takes any action that produces an I/O interruption. The 
AID identifies the action (such as using the selector pen 
on an SPD attention field) or key (program function or 
program access keys) that caused the condition to be 
generated. For a complete discussion on AID, refer to 
IBM 3270 Information Display System Component 
Description, GA27-2749. The return code and the AID 
must be examined before processing of fields in the input 
record area. The effective Input length Includes the AID 
character. 

Note: AID characters are shown at the bottom of the 
printer/display layout sheet (Figure 8-2). The AID for 
TEST REQUEST (0) is received by the application program 
only when the block length specified in the terminal attri- 
butes set Is not large enough for the test being run (see 
BLKL parameter of TERMATTR assignment statement In 
CCP System Reference Manual). 

For CCP return code considerations, see Appendix E. 
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DISPLAY FORMAT GENERATOR 

The display format generator routine does not run under 
the control of CCP. DFGR generates a 3270 display format 
from display format specifications. DFGR performs the 
following functions: 



1. 



2. 



Reads display format specification statements. 

Produces a printout of the specification statements, 
analyzes the specifications for errors, and logs 
diagnostic error messages as required. 

Builds the display format as a two-part table structure: 

a. Field Descriptor Table (FDT) - a table of 
descriptive field information including the symbolic 
name of the field. 

b. 3270 Data Stream - containing output data if 
provided, and 3270 device-dependent control 
information required for formatting all fields 
defined. 

Provides a printout of field names, in the order in 
which they must appear in the output record area 
if data from the Field Descriptor Table is required 
by the application program using the Display 
Format Facility. 

Produces a printout of all fields defined for input 
and the order in which they will appear in the input 
record area. 



Printer/Display Layout Sheet 

The printer/display layout sheet (Figure 8-2) is a planning 
device. The application programmer uses it to plan the for- 
mat and layout of the fields on the display. The completed 
layout is then used as a guide when filling out the display 
control and field definition forms (see Figures 8-6 and 8-7). 

Notice the heavy line after position 40 and line 12 which 
marks the boundary of the 480-character display. The 
heavy line after position 80 and line 24 marks the boundary 
of the 1920-character display. The entire page is used for 
the layout of printer formats. 



Display Control Form 

The display control form provides special information about 
the display format which, in general, is unrelated to the 
fields being defined. One display control form is required 
and must precede all field definition forms. (Both forms 
appear on the Display Format Specifications sheet-see 
Figures 8-5 and 8-7. Additionally, both forms appear on 
the reverse of the sheet to be used as a template to verify 
the position of data in the DFGR listings.) 



6. Calculates and prints the following: 

a. Length of the output record area required in DFF 
program 

b. Length of the input record area required in 
DFF program 

c. Decimal length of the field descriptor table 

d. Decimal length of the 3270 output data stream 

e. Decimal length of the 3270 input data stream 

7. Places the display format in a work file ($WORK) on 
disk and then catalogs the display format in an object 
library on disk. 

Note: If printer control on DFGR is used for a Katakana 
printer, unpredictable results can occur because of new 
line and end-of -message considerations. For this reason, 
PFGR should be used to build a printer format for a 
Katakana printer. 



3270 Display Format Facility (DFF) 8-21 



Inie'raliDnal Business Machines Cofooration 



DISPLAY FORMAT SPECIFICATIONS 



GX21-9175 

Printftd in U.S.A. 



Application 


Completed by 


Punching 
Inslcucrions 

— 


Graphic 














Page of 


Punch 














Data 



DISPLAY CONTROL 




Figure 8-5. Display Control Form is the First of Two Forms on the Display Format Specifications Sheet 

See Figure 8-5 for the location of the following items: Q Display S/ze— Column 1 4 



Form T/pe— Column 1 

The preprinted character C identifies this as the 
display control form. 

Display /Vame-Columns 2-7 

This entry is used to assign a unique name to a display 
format. Entries in columns 2 and 3 are $Z. The 
remaining characters in the name may contain any 
combination of alphabetic and/or numeric characters 
plus any of the characters $, #, or @. Blanks may not 
appear between characters in the name. All applica- 
tion programs using a particular display format must 
refer to it by its assigned symbolic name because each 
display format is catalogued in the object library 
under its symbolic name. The application program 
uses the format's symbolic name when issuing a 
PUT Message. 

Field Name for Initial Cursor Position— Co\umm 8-13 

Enter the name of the field where the cursor is to be 
positioned. If a field name is specified, the cursor 
will be positioned at the first character location of 
the data field. The field must be unprotected. The 
field name must begin with an alphabetic character 
or one of the characters $, #, or @. The remaining 
characters can be any combination or alphabetic, 
numeric characters or any of the characters $, #, 
or @, No imbedded blanks are allowed. 



Enter a 1 in this column if the display format is to be 
used with a 480-character display or printer. 

Enter a 2 in this column if the display format is to be 
used with a 1 920-character display or printer. 

If more fields are defined than can be displayed, an 
error message occurs and all remaining field defini- 
tion forms will be read but not processed. 

Clear Before Writing— Q.o\u<mn 15 

Enter Y if the screen is to be cleared before writing 
this display format. An entry of Y will also cause 
the cursor to be positioned at line 1, position 1, of 
the display. The cursor can be repositioned by 
specifying a field name in columns 8-13. 

Enter N if the screen is not to be cleared before writ- 
ing this display format. In this case, the cursor will 
not be positioned unless columns 8-13 contain a 
field name; it remains at whatever position it 
happened to be on the screen before the display 
format was written to the screen. 

If this column is blank, the default entry Y is assumed. 

The entry N must be used if the format is to be an 
overlay format (see index entry). 



If the field name is not specified, the clear before 
writing entry (column 15) determines the initial 
cursor position. 
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tVCC- Columns 16-18 

Enter the write control character In column 16 or 
leave blank and place an entry (X) in either column 

17 or 18. Use Figure 8-6 to select an entry for 
column 1 6. The WCC allows the user full control 
over certain device operations such as starting the 
printer and resetting the keyboard. 

If there is an entry (X) in either column 17 or 18, a 
default write control character is assigned and any 
entry in column 16 will be ignored. 

If columns 16, 17, and 18 are all blank, it is assumed 
that the space character (X'40') is to be used for the 
WCC. 

Default WCC selections when column 1 7 or column 

18 contain an X, and operations associated with each 
default are as follows: 



Column 



Default WCC 

(column 16) Operations Performed 



17 (Screen) Character - C Restore the keyboard. 

Reset the modified data 
tags. 

18 (Printer) Character -Q Start the print operation, 
if Display Set length of character 
Size entry line to 40. 

isl 

if Display Character - 8 Start the printoperation. 
Size entry Set length of character 

is 2 line to 80. 
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This character is converted internally to hex 6A for a WCC by 
DFGR when generating a format, and by DFCR when using 
the WCC in a Put Override operation. 

Figure 8-6. Write Control Characters 

3 ( Reserved )-Co\\imn% 21-23 are reserved and must be 
left blank. 



Disk Storage Unit for Display Formats-Columns 19- 
20 

Enter R1, F1, R2, or F2 to specify the location of the 
object library where the display format is to be stored. 
If columns 19 and 20 are blank, the display format 
will be placed on the disk from which the display 
format generation routine was loaded. 

When executing with CCP, all display formats must 
be stored either on the CCP program pack or on the 
DSM system pack. 



3270 Display Format Facility (DFF) 8-23 



Printer Control— Co\umm 24-71 

New line and end-of-message orders can be included 
in the display format for control of printouts. Each 
order occupies a data position in the display and is 
executed only when printing. The orders appear as the 
graphics '5' and '9' respectively on a display screen 
or during a printout when using a specified line 
length format in the WCC. New line and end-of- 
message orders are ignored and treated as spaces if 
the field in front of either of these orders is a non- 
display/nonprint field. 

If WCC is specified in column 16, which will define 
a format for a printer in an unformatted mode (not 
40 or 80 characters per line), then new line (NL) 
and end-of-message (EM) orders should be specified. 
This may be accomplished in one of two ways (or 
both); specify up to 23 NL orders and one EM in 
the control card, and/or specify any number of NL 
orders and one EM order in the field definition state- 
ment by use of the reserved keywords @@@NL and 
@@@EM. It is suggested that all NL and EM orders 
be specified using only one or the other form (con- 
trol card or field definition statement using the key- 
words). If both forms are used and an NL is specified 
on the field definition statement (@@@NL) for 
a position in a format after the last new line speci- 
fied on the control card (which is assumed to be an 
EM), that last control card entry will still be con- 
sideresd an EM order. Since the reserved keywords 
allow NL and EM orders to be specified in the same 
order and method as fields, it is suggested that the 
keyword method of specifying NL and EM orders 
be used for unformatted printer operations (See 
Additional Functions for ttie Field Definition State- 
ment Chapter 8). For the 3288 printer equipped with 
the vertical forms control feature, a reserved keyword 
(@@@FF) will insert the forms feed order into the 
text stream. There is no way of specifying this order 
on the control card. 

To specify control card NL and EM orders, each en- 
try consists of a line (two columns) and a position 
(two columns). If the column 14 entry is 1 (for small 
screen), enter a number from 01 to 12 under line and 
a number from 01 to 40 under position. If the column 
14 entry is 2 (for large screen), enter a number from 
01 to 24 under line and a number from 01 to 80 
under position. 



Each entry, with the exception of the last entry, will 
cause an NL order character to be inserted into the 
specified location. The last entry will cause an EM 
order character to be inserted. If only one entry is 
specified, the EM order character will be inserted. 

The new line and end-of-message orders specified on 
the display control form will not be diagnosed. An 
NL or EM may overlay another field, or an attribute 
with no error messages or halts given. 

If NL or EM orders specified on the control card are 
used with the line/partial-line duplication function 
(@@@DP),a warning message and a halt (U-F1) is 
issued at the end of generation. See the Display For- 
mat Generator messages. 

Notes: 

1. For a discussion of new line and end-of-message orders, 
refer to IBM 3270 Information Display Component 
Description, GA27-2749. 

2. If printer control on DFGR is used for a Katakana printer, 
unpredictable results can occur because of new line and 
end-of-message considerations. For this reason, PFGR 
should be used to build a printer format for a Katakana 
printer. 

^1 CoAJf//7waf/o/7— Column 72 

If more than twelve printer control entries are 
required, place an X in column 72 and make remain- 
ing entries in columns 24-71 of the second card. 
(Columns 2-23 of the second card must be blank.) 
One continuation card is allowed. This provides for 
NL control for up to 23 lines with EM control for 
the last line. 

Q ldentification-Sequence-Co\umns 73-80 

Enter any character for sequential identification. 
These columns will be ignored other than to print 
them as part of the statement. 
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Field Definition Form 



Field Length -Qo\\imn% 12-14 



An understanding of how to define fields (see Field Con- 
cepts) is necessary to correctly complete the field defini- 
tion form. Refer to the printer/display layout sheet and 
the display control form while completing the field defini- 
tion form. Each field in the display format must be speci- 
fied on a field definition form. Enter an * in column 1 to 
identify a comment statement. Comments can be used to 
include notes on the listing produced by the Display 
Format Generator program. Placement of the statements 
is not restricted (may appear before the display control 
form, between continuation cards, etc) during a single-format 
build. Placement of comments is not restricted when using 
multiple-format builds, but all comments before the 
display control form of the next format build are printed 
with the previous format build. See Figure 8-7 for location 
of items described below: 

Q Form Identifier— Co\un\n 1 

The preprinted character 'F' identifies this as a field 
definition form. 

Q Field /Vame-Columns 2-7 

Enter in columns 2-7 a unique field name (up to six 
characters in length). The first character must be 
alphabetic or one of the characters, $, #, or @. Re- 
maining characters can be any combination of alpha- 
betic or numeric characters or the characters, $, #, or 
@. Imbedded blanks are not allowed. 

The field names as defined are the symbolic names 
used with Put Overrides applications. 

Note: For more considerations, see Additional 
Functions for the Field Definition Statement in 
this chapter. 

Q Field Starting Locat/o/7-Columns 8- 1 1 

A line (two columns) and a position (two columns) 
entry define the leftmost character position of the 
field. Allowable entries are limited by the display 
size (see column 14 of the display control form). 
If the display size entry is 1 (for small screen), enter 
a number from 01 to 12 under line and a number 
from 01 to 40 under position. If the display size 
entry is 2 (for large screen), enter a number from 01 
to 24 underline and a number from 01 to 80 under 
position. Field starting locations must be specified 
in numerically increasing order (see Planning the 
Printer/Display Layout) . 



The minimum field length is one. The maximum 
length for an output, input, or an output/input field 
is 240 positions. An SPD field must be contained on 
one line and is therefore limited to a length of 37 or 
77 depending upon the display size (see Planning the 
Printer/Display Layout). 

Note: For more considerations, see Additional 
Functions for the Field Definition Statement in 
this chapter. 

Q Output, T'Kpe-Column 15 

Enter 1 , 2, or 5 (see Field Concepts, earlier in this 
chapter). 

E| Output, Data Source-Co\umn 16 

Enter E if data is provided when writing the initial 
display format during execution by the application 
program. 

Enter a G if data is generation-defined (data is 
entered in columns 32-71) and a Put Override is 
used to override the field during execution. To save 
main storage, enter an F for an output field having 
generation-defined data (in columns 32-71 ). Enter- 
ing an F eliminates the Field Descriptor Table (FDT) 
entry, which saves 14 characters of storage. However, 
the lack of this FDT entry eliminates the capability 
of overriding the field during execution. 

Either a G or an E can be entered and a Put Override 
can still be used to override the field at execution time. 

If this entry is blank, the default G is assumed. 

B Input, 7ype— Column 17 

Enter 1, 2, 3, 4, 5, 6, or 7 (see Field Concepts, earlier 
in this chapter). 

Q Input, Automatic Skip— Co\umn ^S 

This entry determines the terminating attribute. 
Enter Y in column 18 if automatic skip function 
is to be performed (see Autoskip and Cursor 
Positioning). 

Enter N if automatic skip function is not to be per- 
formed. 

Default is N if entry is left blank. 
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Figure 8-7. Field Definition Form on the Display Format Specifications Sheet 



Q Output/Input, T/pe— Column 19 

Enter 1,2,3,4,5,6,7, or 8 (see Field Concepts, 
earlier in this chapter). 

3 Output/Input, Data Source-Column 20 

Enter E if data Is provided when writing the initial 
display fromat during execution by the application 
program. 

Enter a G if data is generation-defined and data is 
entered in columns 32-71. Either a G or an E may 
be entered and a Put Override can still be used to 
override the field at execution time. 



If this entry is blank, the default G is assumed. 
Output/Input, Automatic SA:/p-Column 21 

This entry determines the terminating attribute of 
the field. Enter Y if the automatic skip function is 
to be performed (see Autoskip and Cursor 
Positioning). 



Enter N if automatic skip function is not to be per- 
formed. Default of N is assumed if entry is left 
blank. 

SPD, rK/oe-Column 22 

Enter 1 , 2, 3, 4, 5, 6, or 7. See Field Concepts, earlier 
in this chapter. 



QS SPD, Data Source-Column 23 

Enter E if data is provided when writing the initial 
display format during execution by the application 
program. 

Enter a G if data is generation-defined and data is 
entered in columns 32-71. Either a G or an E may 
be entered and a PUT Override can still be used to 
override the field at execution time. 



/'/?eseri/eo'>/-Columns 24-31 must be left blank. 
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Dafa— Columns 32-71 



To specify printer control on a Field Definition statement: 



Data may be provided for Output, Output/Input, or 
SPD fields. Data must not exceed field length as 
specified in columns 12-14. 

If data exceeds 40 characters in length, place an X in 
column 72 and continue entering data in column 32 
of the next line (leave columns 2-31 blank). 

QB Continuation— Co\umr\ 72 

If the data entry must continue beyond column 71, 
place an X in column 72 and continue entering data 
in column 32 of the next line. A maximum of five 
continuation lines are allowed. 



Identification-Sequence— Co\umns 73-80 

Since these columns are ignored other than to print 
them as part of the statement, they may contain any 
characters. 



Form Type— Column 1 

Contains the preprinted character F. 

/\/aA??e— Columns 2-7 

@@@NL — Signifies a new line order is to be 
generated in the display format 
(see note). 

@@@EI\/I - Signifies an end-of-message order is to 
be generated in the display format. 

@@@FF — Signifies a forms-feed order is to be 
generated in the display format. This 
order is valid only for printers having 
the Vertical Forms Control feature. 
When valid, the forms-feed order is 
printed as a blank; when invalid, it is 
displayed as a graphic < (see note). 
See IBM 3270 Information Display 
System Component Description, 
GA27-2749. 



Additional Functions for the Field Definition Statement 



Printer Control 

An optional method of providing new line and end-of- 
message printer control is to request the generation of 
these orders on Field Definition statements. An additional 
control called forms feed can be specified for those printers 
having the Vertical Forms Control feature. The new line, 
end-of-message, and forms feed orders on field definition 
statements are checked for position. If there are control 
characters overlapping other fields or attributes, an error 
message and halt are issued. The position of the new line 
and end-of-message orders on the display control form are 
not checked. 



Note: There is no restriction on the number of new 
line (@@@NL) or forms-feed (@@@FF) orders that 
can be generated. 

Field Starting Z.ocaf/o/7-Columns 8-1 1 

Enter the line number in columns 8 and 9, the 
position number in columns 10 and 11. These 
numbers indicate where the order will be in the 
format. Each order occupies one position in a 
format. These orders should be provided in 
numerically increasing order. 



If printer control on DFGR is used for a Katakana printer, 
unpredictable results can occur because of new line and 
end-of-message considerations. For this reason PFGR 
should be used to build a printer format for a Katakana 
printer. 
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DFGR Line/Partial-Line Duplication 



DFGR Considerations for the Duplication Function 



Line/partial-line duplication allows generation of duplicate 
fields on consecutive lines without requiring Field Definition 
statements for each duplicate field. Instead, one Field 
Definition statement is required to place the duplicate 
fields on the desired line. To allow duplication, enter the 
following on the Field Definition form: 

Form T/pe— Column 1 

Contains the preprinted character F. 

Field yVame— Columns 2-7 

@@@DP identifies this as a duplication statement. 
This means that this is a request to duplicate a 
fielcl(s) defined in the Field Definition statement(s) 
for the previous line. 

Field Starting Location-Co\urr\r\s 8-1 1 

The line number, columns 8 and 9, Identifies on 
which line to generate the duplicated fields. The 
fields will be duplicates of the fields for the last 
defined line. Any number of blank lines can 
be left between the original line and the line on 
which the duplicate fields are being generated. 
The position number, columns 10 and 11, is an 
optional entry. It gives the position number on 
the line where duplication is to begin. If no 
entry is made, the default is position 1 . If the 
position specified is in the middle of a field, DFGR 
starts to duplicate at the start of the next field. 

Field Length-Co\umr\s 12-14 

Number of Fields: The number entered specifies 
the number of fields to duplicate (see columns 8-1 1 
for start position). If the number of fields is not 
specified or if the number of fields specified is 
greater than the number of fields available to be 
duplicated, all fields after the start position of 
that line (columns 8-11) are duplicated. 



• If a line being duplicated contains both fields defined 
by Field Definition statements and fields generated by 

a previous duplication statement, only the fields defined 
by Field Definition statements are duplicated. 

• Field names are assigned to fields generated under the 
duplication process. The names have the format 
'DPIIpp'. The 'DP' indicates it is a duplicate field and 
'llpp' are the line and position where it is located. You 
should avoid defining other fields using this convention 
because you could get duplicate field names. 

• If a field being duplicated extends to another line, or 
lines, the entire field is copied. 

• If any DFGR warning messages were issued (but no 
termination messages), a halt (U-F1) is issued. The 
options available are: 

— Catalog the format and ignore the warnings. 

3 - Cancel the program and DFGR will go to end 
of job. 

Examples of Duplication Functions: The following 
examples are some of the ways to use the line and field 
duplication functions. The duplication function is indicated 
by '@@@DP' in columns 2-6. The fields that are generated 
from this duplication function are between the lines of 
asterisks, starting with the line with the comment 
'GENERATED DUPLICATION FIELDS' and ending with 
the line with the comment 'END OF GENERATED 
DUPLICATION FIELDS'. 



Number of Lines: If an @ is entered in column 12, 
followed by a number in 13 and 14, this number 
specifies the number of times to duplicate the 
last line with field definitions. If columns 13 and 
14 are left blank it will duplicate the line once. 

No other entries on the duplication statement 
are recognized. 
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Q 



Q 



C$ZTST1 2Y XRl 

FA 2 2 31E 

FB 3 5 402G DUPLICATED ON LINE 4 

FaaaNL 350 duplicated on line 4 



FaaaDP 4 

*>^;*)^r>|t*«*>|<>|<**s:<^^!«<>|<*^!o|c>|(^Jjo)<Jio|<**J[c>;<sl!*J^^>(:J)o|<:^s^iJjo^ GENERATED DUPLICATION FIELDS 

FDPO46504 5 402G DUPLICATED ON LINE 4 

FaaaNL 0450 duplicated on line 4 

*jW!»**>»>:<>:t>»***<<st*>|oi<s!<^;***+^t*s(:^;,^>l<j(:,i<>l<,}rj):,^ gf^ Qp GENERATED DUPLICATION FIELDS 



FC 7 9 21G ** 

FaaaFF 716 * 

FD 718 205E ** DUPLICATED ON LINES 9,10,11 

FE 741 82G * 

FaaaNL 750 3 ** 



FaaaDP 933 

*)|<jW**:jc***j|o)!*>;t**>»******s|o|<********s!o^»l<*>|ct<>w<*^^ GENERATED DUPLICATION FIELDS 

FDP090909 9 21G ** 

FaaaFF 0916 * 

FDP09180918 205E *h^ DUPLICATED ON LINES 9,10,11 

FDP09410941 82G * 

FaaaNL 0950 3 ** 

FDP100910 9 21G ** 

FaaaFF 1016 * 

FDP10181018 205E ** DUPLICATED ON LINES 9,10,11 

FDP10411041 82G * 

FaaaNL 1050 3 ** 

FDP110911 9 21G ** 

FaaaFF 1116 * 

FDP11181118 205E ** 

FDP11411141 82G * 

FaaaNL 1150 3 ** 

>^:(;**>;<^;<):<i{(*>:<>'^>:<>'pl<:{oj<>;<s><**>)c*:jos:*i:<**s|<>lc.|ci<:jo!!!(t^<***>:c>l<* Epvm QP GENERATED DUPLICATION FIELDS 



FaaaFF 12 3 9 

FTESTA 14 2 3 7GY 
F TESTS 14 6 8 8GY 



FTESTC 1420 30 7GN DUPLICATED ON LINE 15 
FTESTD 1454 22G DUPLICATED ON LINE 15 



FsaaBP i52oa i 

****««<j{o|<*«******=io|t5W**=:<*!ic*>(=<t:)oi<*»:<!jo:<>lo(;*>i<**** GENERATED DUPLICATION FIELDS 

FDP15201520 30 7GN DUPLICATED ON LINE 15 

FDP15541554 22G DUPLICATED ON LINE 15 

!:<**);t«*=:t**«*;(<j^>»**^:*>:<****:jc**:j<«t:{t,]<5(o(c>|c*s|ix<*>{(jjc(<!^ PfvjD Qp GENERATED DUPLICATION FIELDS 



FTESTl 20 2 3 7GY 

FTEST2 20 6 8 8GY 

FTEST3 2020 30 7GN DUPLICATED ON LINE 22 

FTEST4 2054 22G DUPLICATED ON LINE 22 



GaaaDP 2220 3 

*«*^*>!:jio|t«!**):<,'<j:,*:lo|cs!=):=Mc>!=^5**j}c(t*«*>:!*!{<ij<:i<jlo|<***>j:^^ GENERATED DUPLICATION FIELDS 
FDP22202220 30 7GN DUPLICATED ON LINE 22 
FDP22542254 22G DUPLICATED ON LINE 22 

*>|o{<**^jo|.:**>»**>;<****>l<**!M:**>M:>|o|<^!<>lc>|o^>l**!^<«x<**^^ EMD OF GENERATED DUPLICATION FIELDS 



FTSTl 23 1 20 7GY DUPLICATED ON LINE 24 

FTST2 2325 151G DUPLICATED ON LINE 24 

FTST3 2345 IIP 

FTST4 2349 5 8GN 



FaaaDP 24 i 2 

**>lc>!t=;<***«********!)o|<**!io^>i<*jio(:**j!c5Hs|c«j^* GENERATED DUPLICATION FIELDS 

FDP240124 1 20 7GY DUPLICATED ON LINE 24 
FDP24252425 151G DUPLICATED ON LINE 24 

>)c****)(o^:>|o)!J^D:<>l(***s|o;c>;c**^c:jo:<*:,(i,(:5jiJjc^(^(=:c^(***>lt^ END OF GENERATED DUPLICATION FIELDS 



FaaaEM 2525 
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Q Whole Line Duplication (Columns 12- 14 blank) 

The duplication instruction (@@@DP) indicates 
duplication of fields on line 4. Columns 1 2-14 on 
the duplication card are blank, so the default is to 
duplicate one whole line. This would be the same as 
specifying @01 in columns 12-14. One field and one 
new line are defined on line 3, which is the line 
previous to line 4. This field and new line are 
duplicated on line 4. 

Q Whole Line Duplication (Columns 12- 14 non-blank) 

The duplication instruction (@@@DP) indicates dupli- 
cation on lines 9, 10 and 1 1 . Column 12 contains 
the character '@' which indicates line duplication. 
The character 3 in column 14 indicates the previously 
defined line is to be duplicated three times. Since 
nothing is specified in the position columns (columns 
10 and 11), the whole line will be duplicated. There 
are three fields, a forms-feed order (@@@FF) and a 
new line order (@@@NL) on line 7. Since line 8 
contains no fields or forms-feed orders, the entries 
on line 7 will be duplicated on lines 9, 10 and 11. 



Q Field Duplication 

The duplication instruction (@@@DP) indicates 
duplication on line 22 of three fields from the 
previous nonblank line, beginning at position 20. 
Column 12 is blank, and column 14 contains a 
character 3 indicating field duplication. Three fields 
were specified to be duplicated but only two fields 
were specified on line 20 from position 20 to the 
end of the line. In this case only these two fields 
are duplicated. 

Q Field Duplication 

The duplication instruction (@@@DP) indicates 
duplication on line 24 of the two fields from the 
previous nonblank line beginning at position 1. 
Column 12 is blank indicating field duplication, 
and column 14 contains a character 2, indicating 
two fields are to be duplicated. In this case the 
first two fields from line 23 are duplicated on 
line 24. 



Partial Line Duplication 

The duplication instruction (@@@DP) indicates 
duplication on line 15 of everything on the previous 
nonblank line from position 20 to the end of that 
line. Column 12 contains the character @ which indi- 
cates line duplication. The character 1 in column 14 
indicates the line is to be duplicated one time. The 
characters 20 in columns 10 and 1 1 indicate everything 
fronni position 20 to the end of the line should be 
duplicated. In this case two fields, TESTC and 
TESTD, will be duplicated on line 15. 
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OCL Considerations for tlie Display Format Generator 

The following OCL statements are required when either 
single or multiple formats are built: 

// LOAD $CCPDF,unit 

//FILENAME-$WORK,UNIT- {'^l,} ,PACK-packid, 

RETAIN-S,TRACKS-2 

// RUN 

When reading from the system input device, be sure that 
the display format statements immediately follow the 
RUN statement. A /* follows the format statements. The 
statements are read from the system input device and 
written into a $SOURCE file. If the display format state- 
ments require more than five trades of a file, define a 
$SOURCE file with an adequate number of tracks. If a 
$SOURCE file OCL statement is not specified, a 5-track 
$SOURCE file is automatically allocated on the unit from 
which $CCPDF was loaded. 

When reading from the source library, specify a $SOURCE 
file with enough tracks to contain all the display format 
statements in the source library. A COMPILE is also 
required with the following parameters: 



// COMPILE SOURCE-name of source data.UNIT- 
where UNIT is the location of the source library 



Notes: 

1. For multiple format builds in a single run, the input 
stream must not contain delimiters between the display 
formats. Instead, the C in column 1 of the display con- 
trol form indicates the start of another input. 

2. Enter an asterisk (*) in column 1 to identify a comment 
statement. Comments may be used to include notes on 
the listing produced by the Display Format Generator 
routine. Comments can be placed anywhere in the for- 
mat build; however, on multiple format builds, all com- 
ments entered before the display control form of the 
second or later format builds are printed with the previous 
format build. 




Display Format Generator Diagnostic Messages 

During its processing, the display format generator (DFGR) 
diagnoses errors in the Display Format Specifications and 
logs diagnostic messages on the system logging device. Refer 
to the CCP Messages Manual, GC21-51 70, for a list of the 
diagnostic messages. 

Since DFGR calls the Overlay Linkage Editor to put the 
formats into the object library, it is possible to get Overlay 
Linkage Editor halts when using the DFGR. 
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PRINTER FORMAT GENERATOR ROUTINE <PFGR) 



Printer/Display Layout Sheet 



The Printer Format Generator routine does not run under 
the control of CCP. PFGR generates a 3270 printer format 
from printer specifications in the following functional steps: 

1. Reads printer format specifications statements. 

2. Produces a printout of the specification statements, 
analyzes the specifications for errors, and logs diag- 
nostic error messages as required. 

3. Builds the printer format as a two-part table structure: 

a. Field Descriptor Table (FDT) — containing descrip- 
tive field information, including the symbolic 
name of the field 

b. 3270 Data Stream — containing output data, if 
provided, and 3270 device-dependent control 
information required for formatting all fields 
defined 

4. Provides a printout of field names, in the order in 
which they must appear in the output record area if 
data from the Field Descriptor Table is required by 
the application program using the Display Format 
Facility. 



The printer/display layout sheet is the same as that used 
for DFGR (Figure 8-2). The application programmer uses 
this form to plan the format and layout of the fields on the 
printer. The completed layout is then used as a guide to 
complete the printer control and field definition forms (see 
Figures 8-8 and 8-9). 

The layout is 132 positions per line, the maximum platen 
length. Other platen lengths used are 120 and 126 posi- 
tions per line. 



Printer Control Form 

The printer control form provides special information about 
the printer format which, in general, is unrelated to the 
fields being defined. One printer control form is required 
and must precede all field definition forms. (Both forms 
appear on the Printer Format Specifications sheet— see 
Figures 8-4 and 8-8.) 



5. Calculates and prints: 

a. Length of the output record area required in the 
DFF program 

b. Decimal length of the Field Descriptor Table 

c. Decimal length of the 3270 output data stream 

6. Places the printer format in a work file ($WORK) on 
disk, then catalogs the printer format in an object 
library on disk. 
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Figure 8-8. Printer Control Form is the First of Two Forms on the Printer Format Specifications Sheet 



Entries on the printer control form are as follows: 

O Form /Vjoe-Column 1 

The preprinted character H identifies this as the 
printer control form. 

El Printer Format /Vawe— Columns 2-7 

This entry is used to assign a unique name to a 
printer format. Entries in columns 2 and 3 are $Z. 
The remaining characters in the name can consist of 
any combination of alphabetic and/or numeric char- 
acters plus any of the characters $, #, or @. Blanks 
may not appear between characters in the name. The 
length of the name can be from three to six characters. 
All application programs using a particular printer 
format must refer to it by its assigned symbolic name, 
because each printer format is cataloged in the object 
library under its symbolic name. 

El Prin ter Size— Co I u m n 8 

Enter a 1 or leave this column blank if the printer 
format is to be used with a 480-character printer. 

Enter a 2 in this column if the printer format is to 
be used with a 1920-character printer. 

If more fields are defined than can be displayed, an 
error message is issued; and all remaining field defini- 
tion forms are read but not processed. 



Platen Lengtti—Co\umn 9 

Enter a 1 in this column if the printer used has a 
1 20-character platen. 

Enter a 2 in this column if the printer has a 
1 26-character platen; 

Enter a 3 or leave this column blank if the printer has 
a 1 32-character platen. 

Line Lengtti-Co\vxr(\n% 10-12 

Enter in these columns the length of the line to be 
printed. Valid line length can be from 001 to the 
platen length specified (see column 9). A field can- 
not extend beyond the line length specified. 

Lines Per Pagre-Columns 13-14 

Enter the total number of lines (page length), from 
1 through 99, that can be printed on a single page. 
If columns 13-14 are left blank, the default value 
is 66 lines per page. 
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Multiple Pages— Co\\imn 15 

Enter an X in this column if the printer format re- 
quires more than one page. If this column is blank, 
all fields are printed on one page. Any field that has 
a line/position value less than the previous field 
specified is flagged with an error message, and the 
format is not built. If this column contains an X and 
a field has a line/position value less than the previous 
field specified, the field is placed on the next page at 
the line/position value given. Processing of the 
remaining field continues. 

Vertical Forms Feed— Column 16 

Enter an X in this column if a 3288 printer is used 
with the option to support the forms-feed function. 
Forms-feed is not used if this column is left blank. 

Note: The Katakana feature does not support vertical 
forms feed. 

Disk Storage Unit for Printer Formate— Columns 17-18 

Enter R1, F1, R2, or F2 to specify the location of 
the object library in which the printer format is to be 
stored. If columns 14 and 15 are blank, the printer 
format is stored on the disk from which the printer 
format generation routine was loaded. 

When CCP is executing, all printer formats must be 
stored on either the CCP program pack or the DSM 
system pack. 



iEj Katal<ana Printer Formaf-Column 1 9 

Enter an X in this column if the format to be gener- 
ated is to be used on a Katakana printer. Leave this 
column blank for all other printers. Formats gener- 
ated for a Katakana printer should not be used on a 
non-Katakana printer because unpredictable results 
will occur. Non-Katakana formats should not be run 
on Katakana printers. 

ID Print/No-print-Co\umn 20 

Enter P or leave this column blank if the initial 
format (not modified by an operation) is to be 
printed on the 3270 printer. 

Enter N if the initial format is not to be printed. 
SB fflesen^ec/^-Columns 21-72 

These columns are reserved and are to be left blank. 

Ma Identification-Sequence— Co\yimn% 73-80 

Enter any characters for sequential identification. 
These columns are ignored other than to be printed 
as part of the statement. 
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Figure 8-9. Field Definition Form on the Printer Format Specifications Sheet 



Field Definition Form 



Field Starting /.ocat/on— Columns 8-12 



Refer to the printer/display layout sheet and the printer 
control form while completing the field definition form. 
Each field in the printer format must be specified on a field 
definition form. When defining fields using PFGR, do not 
allow space for defining and terminating attributes, as 
PFGR does not generate field defining or terminating attri- 
butes. The amount of printer buffer space specified need 
only be the length of the data and the printer control char- 
acters (NL, EM, FF). See Figures 8-4 and 8-9 for the loca- 
tion of the following items: 

U Form 7Vpe— Column 1 

The preprinted character L identifies this as a field 
definition form for the Printer Format Generator. 

H Field /Vame-Columns 2-7 

Enter in these columns a unique field name that is 
from one to six characters in length. The first charac- 
ter must be alphabetic or a $, #, or @. The remaining 
characters can consist of any combination of alpha- 
betic and/or numeric characters plus any of the 
characters $, #, or @. Avoid assigning names begin- 
ning with @@@ because these characters identify 
special function requests. Avoid field names starting 
vi/ith D followed by five numeric characters when us- 
ing the field duplication function. Embedded blanks 
are not allowed. 



A line entry (two columns) and a position entry 
(three columns) define the leftmost character of the 
field. Allowable entries are limited by the printer 
size, line length, and tines per page entries (see 
columns 8, 10-12, and 13-14 of the printer control 
form). 

In the line field (columns 8-9), enter the number 
(01-99 not to exceed the value in the lines per page 
field) of the line that the field is to occupy in the 
output. 

In the position field (columns 10-12), enter the 
number (001 to the value specified in the line length 
field) of the position on the line that the field is to 
occupy. 

The field starting locations must be consecutive and 
must not exceed the length of the printer buffer. 
Determine the number of characters used in the 
printer buffer as follows: 

• If the vertical forms-feed order is not active (blank 
in column 16 of the printer control form), add 
the following to calculate the buffer required to 
build the format: 

a. Total length of all fields defined. 

b. Number of all unused positions on a line that 
precede the last field in the line. 
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c. One character for each new line (NL) order 
when building a format for a non-Katakana 
printer, or two characters for each NL order 
when building a Katakana format. An NL 
occurs each time that the last position in a line 
does not contain a character. Only the last line 
that contains a field and all previous lines are 
included in this count. If the last position in a 
line contains a character and the line length is 
equal to the platen length, the printer auto- 
matically advances to the next line and an NL 
is not required. 

d. One character for an end-of-message (EM) 
order when building a format for a non-Kata- 
kana printer, or two characters for an EM order 
when building a format for a Katakana printer. 

If the vertical forms-feed order Is active (an X In 
column 16 of the printer control statement), add 
the following to calculate the buffer required to 
build the format: 

a. Total length of all fields defined. 

b. Number of all unused positions that precede 
the last field in a line. Exclude line 01, position 
001, from this count on all but the first page 

of the format (this position is unusable after a 
forms-feed order). 

c. One character for each new line (NL) order. 
An NL occurs each time that the last position 
in a line does not contain a character. Only 
the last line to contain a field on each page and 
all previous lines on that page are included in 
this count. If the last position in a line contains 
a character and the line length is equal to the 
platen length, the printer automatically advances 
to the next line and an NL is not required. 

d. One character for each page (excluding the 
last page) that does not contain any fields on 
the last line of that page. 

e. One character for an end-of-message (EM) 
order. 

Note: When a small print buffer is used (1 in 
column 8 of the printer control form), the preced- 
ing calculations must not exceed 480 characters. 
When a large printer buffer is used (2 in column 
8 of the printer control form), the preceding 
calculations must not exceed 1920 characters. 



EQ 



Dafa Source— Column 16 

Enter an E if data is provided at the initial printer 
format during execution by the application program. 
Enter a G if the data is supplied in columns 32-71. 
Enter an F if the data is supplied in columns 32-71 
and a Field Descriptor Table entry is not required for 
this field. Data in columns 32-71 is ignored if E is 
entered in column 16. If column 16 is left blank, G 
is assumed. 

Repeat Last Character— Column 1 7 

Enter an X in this column if the last character entered 
in columns 32-71 is to be repeated to the end of the 
field. For example, if 20 asterisks (*) are to be 
printed, define a field 20 characters long; place an 
asterisk in column 32; and enter an X in column 17. 
The result will be a field of 20 asterisks. 

/?ese/vec/-Columns 18-31 

These columns are reserved and must be left blank. 

Date-Columns 32-71 

Enter the data for the generation-defined fields. 
Data must not exceed the field length specified in 
columns 13-15. If the data exceeds 40 characters, 
place an X in column 72 and continue entering data 
in column 32 of the next line (leave columns 2-31 
blank). If an execution-defined field is specified (E 
in column 16), columns 32-71 are ignored. 

Continuation— Column 72 

If the data entry exceeds 40 characters, enter an X 
in column 72 and continue entering data in columns 
32-71 of the next line. No more than three continu- 
ation lines are allowed. 

Identification-Sequence— Columns 73-80 

Enter any characters for sequential identification. 
These columns are ignored other than to be printed 
as part of the statement. 



Field Lengtti-Columm 13-15 

The minimum field length is 1. The maximum field 
length is the line length value entered in columns 
10-12 of the printer control form. 
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Printer Control on the Field Definition Statement 



Field Starting Location— Co\umm 8-12 



A method of supplying forms-feed printer control Is to 
request the generation of these orders on field definition 
statements. 

Notes: 

1. Multiple pages must be specified (an x in column 15 on 
the printer control form) if printer control is used. 

2. The Katakana feature does not support vertical forms 
feed. 

To specify printer control (forms feed) on a field definition 
statement, enter the following: 

U Form F/pe— Column 1 

The preprinted character L identifies this as a field 
definition for the Printer Format Generator. 

B F/e/(//Va/77e-Columns 2-7 

To indicate either a forms-feed order (for 3288 
printers with the Vertical Forms Control feature) or 
to generate multiple NL orders to advance the printer 
to line 01, position 001 of the next page, enter - 
@@@FF. 

Note: If a 3288 printer with the Vertical Forms 
Control feature is given the forms-feed order, the 
printer is advanced to line 01, position 002, of the 
next page. 

PFGR Line/Partial -Line Duplication 

PFGR supports a line/partial-line duplication feature to 
allow a defined field (the master) to be duplicated on 
following output lines. The master line must be defined 
first; the duplicated lines must be defined immediately 
following the master line definition and must be entered in 
ascending order. Any number of blank lines can be left 
between the master and duplicated lines on the output 
form. The duplication request is entered as follows: 

Rl Form rype-Column 1 

The preprinted character L identifies this as a field 
definition for the Printer Format Generator. 

B Field /Vame-Columns 2-7 

Enter @@@DP to indicate the duplication request. 
The master field must immediately precede this 
entry. This request causes the field(s) defined in the 
master field definition statement to be duplicated in 
a new location. 



A line entry (two columns) and a position entry 
(three columns) define the horizontal output line 
where the master line is to be duplicated and the 
position of the first character to be duplicated. 

In the line entry (columns 8-9), enter the output line 
number that is to contain the duplicate of the master. 
Line numbers must be in ascending order, though 
any number of blank lines can be left between the 
output lines. 

Ihe position entry (columns 10-12), an optional 
entry, defines the first position of the master to be 
duplicated. If the position specified is not the start- 
ing position of the field within a line, duplication 
starts at the beginning of the next field. If the posi- 
tion entry is left blank, duplication begins at position 
001. 

D Field Length -Co\iivnn% 1 3-1 5 

This entry, an optional entry, specifies the number 
of fields to be duplicated from the master. If no 
entry is made in these columns, all fields beginning 
at the point specified in the position entry are dupli- 
cated. If the number specified is greater than the 
number of master fields on the line, duplication 
begins with the first field specified and continues to 
the last field of the master. 

If the master is to be duplicated on a number of 
consecutive output lines, enter the character @ in 
column 13 and the number of times the line is to be 
duplicated on the output in columns 14 and 15. 

The remainder of the duplication statement must be left 
blank. 

Notes: 

1. If a duplication request statement contains both field 
definition statements and fields generated by a previous 
duplication statement, only those fields defined directly 
by field definition statements are duplicated. 

2. Field names are assigned to fields generated under the 
duplication process. Such names have the form 
Dllppp, where llppp indicates the line and position loca- 
tions. Avoid defining other fields using this convention 
because duplicate field names could result. 
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Example of a Format Written for the Printer Format 
Generator: Following is an example of a format written 
for the Printer Format Generator. The line and position 
values (columns 8-12) on the field definition statements in 
the example (part Q ) are the placement of each field on 
the page when printed on the 3270 printer (part Q ). 

When generation-defined data is specified (G in column 16), 
the data supplied in columns 32-71 for the length specified 
in columns 13-15 is printed on the 3270 printer. 



When execution-time data is specified (E in column 16) 
and the Display Format Test routine (DFTR) is being run,: 
asterisks are placed in the field and printed. The DFTR 
can be used for either printer or display formats. When 
execution-time data is used with the Display Format Con- 
trol routine, the data supplied during execution is placed 
in these fields. 

When the repeat-last-character function is specified, the 
last character supplied in columns 32-71 is repeated to 
the end of the field. 



B 



The duplicate line function for PFGR is the same as the 
duplicate line function for DFGR (see Examples of Dupli- 
cation Function). The only variation is the method of 
supplying field names on the duplicated line statements; 
the position value is three characters instead of two 
characters. 
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QUANTITY - 


LBIO 
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ITEM NUMBER 
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$ZPF02 PRINTER FORMAT INFORMATION 
EXECUTION TIME DATA - OUTPUT AREA FORMAT - END POSITIONS FOR RPG PROGRAMS 



* FIELD 

* NAME 



OPCODE 
$CPF02 
BIO 



FIELD 
LENGTH 

004 
005 
003 



END * FIELD 
POSITION * NAME 



0004 
0020 
0129 



LENGTH 

B3 

B12 



FIELD 
LENGTH 

004 
005 
002 



END * FIELD 

POSITION * NAME 

0008 * TMNAME 

0025 * B6 
013J, * 



FIELD 
LENGTH 



005 
030 



END « 
POSITION * 



0014 
0055 



LENGTH OF OUTPUT RECORD AREA REQUIRED IN DFF PROGRAM 
RPG *SLJBR92* - 0131 OTHER - 0123 



INFORMATION FOR USE DURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELD DESCRIPTOR TABLE IS 0U2 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS 0213 



CUSTOMER NUMBER - ****** 

***********V<****************************#**j!«*X«*****^t******** 



***>;(**^c^c* ********** *>j<* 



ADDRESS - ***^(***************^<********** 

*****>:<****************^<******* 

****************)!<************* 

********** 

QUANTITY - *** 

ITEM NUMBER - ** 

********************s:<***>|<*****>^***,^Jjo^^;(:^)^^|(;{o^********************************s:c**>[<*«*J^:*J;i>^^^ 
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OCL Considerations for the Printer Format Generator 

The following OCL statements are required when either 
single or multiple formats are built: 

// LOAD $CCPPF,unit 

h 

//FILENAME-$WORK,UNIT- {l}} ,PACK-packid, 
RETAIN-S,TRACKS-2 



Printer Format Generator Diagnostic Messages 

During its processing, the printer format generator (PFGR) 
diagnoses errors in the Printer Format Specifications and 
logs diagnostic messages on the system logging device. 
Refer to the CCP Messages Manual, GC21 -51 70, for a list 
of the diagnostic messages. 

Because the PFGR also calls the Overlay Linkage Editor 

to put the formats into the object library, it is possible 

to get Overlay Linkage Editor halts during PFGR processing. 



//RUN 

When reading from the system input device, be sure that 
the printer format statements immediately follow the RUN 
statement. A /* follows the printer format statements. 
The statements are read from the system input device and 
written into a $SOURCE file. If the printer format state- 
ments require more than five tracks of a file, define a 
$SOURCE file with an adequate number of tracks. If a 
$SOURCE file OCL statement is not specified, a 5-track 
$SOURCE file is automatically allocated on the unit from 
which $CCPF was loaded. 

When reading from the source library, specify a $SOURCE 
file with enough tracks to contain all the printer format 
statements in the source library entry. A COMPILE is also 
required with the following parameters: 

// COMPILE SOURCE-name of source data.UNIT- 



where UNIT is the location of the source library. 

Notes: 

1. For multiple format builds in a single run, the input 
stream must not contain delimiters between the printer 
formats. Instead, the H in column 1 of the printer con- 
trol form indicates the start of another input. 

2. Enter an asterisk (*) in column 1 to identify a comment 
statement. Comments may be used to include notes on 
the listing produced by the Printer Format Generator 
routine. Comments can be placed anywhere in the for- 
mat build; however, on multiple format builds, all 
comments entered before the printer control form of 
the second or later format builds are printed with the 
previous format build. 
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DISPLAY FORMAT CONTROL ROUTINE (DFCR) 



DFCR Functions for Output are: 



The display format control routine operates under CCP to 
support formatted displays (screen or printer), as generated 
by DFGR and PFGR,forthe IBM 3270 Information Display 
System. 

Model 10 and Model 12 DFCR: The control routine is 
loaded along with the first application program that requires 
DFF. In addition to the usual user allocation and initiation 
tests, CCP must make sure there is enough storage for 
DFCR before the program can start. The DFCR and the 
output hold area(s) are loaded at either the upper or lower 
boundary of the user program area and remain in main 
storage until the last application program using DFF termin- 
ates. The space occupied by the DFCR will then be made 
available for other uses. 

Model 15 DFCR: The DFCR is loaded into the resident 
portion of CCP during Startup and remains resident in 
main storage throughout the CCP run. 



• Automatically retrieves the printer or display format 
requested by the application program. 

• Merges execution time data supplied by the application 
program with the 3270 data stream at the proper field 
location; checks numeric fields for negative values. 

• If necessary, splits the 3270 data stream into blocks and 
sends each block separately to the 3270. See Hold Area 
for a discussion of blocking. 

• Provides application programs with the capability of 
modifying (overriding) the attributes, data content, or 
both of any field currently at the display. It also 
allows the application program to receive input from 
only selected fields. 

• Provides the Copy operation which can be used to 
transfer a printer or display format between devices 
attached to the same control unit. 



The facilities can best be described in terms of output and 
input operations. Figure 8-10 shows an example of the 
operations performed by DFCR. 



• Provides the Erase operation which can be used to 
clear all unprotected fields and reset the device for data 
entry for the terminal operator. 
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e 



An application program running under CCP requests a particular format by issuing a Put Message operation, 
specifying the symbolic name of the format. (The symbolic name is defined in columns 2-7 of the display 
control form.) 

The Display Format Control Routine (DFCR) reads the requested format from the object library. (Format 
was placed in the object library by the Display Format Generator or the Printer Format Generator.) 

The first part, the field descriptor table, is read into an area appended to the user program. 

The second part, the 3270 data stream for this format, is read into the output hold area appended to the DFCR. 

The format is passed from the output hold area to CCP for transmission to the display station. 



Figure 8-10. DFCR Functions 
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DFCR Functions for Input are: 



Put Message 



• Creates a data record area based on fields received, or not 
received, from the display format at the terminal. 

• Pads alphameric data on the right with spaces; right- 
justifies data in numeric fields and pads it on the left 
with spaces. 

• Examines numeric fields for negative values. 



3270 DISPLAY OPERATIONS 

Requests for 3270 display operations are like other CCP 
communications I/O requests; that is, each request is 
issued through the communication service subroutine (by 
means of a macro in Basic Assembler) and must be accom- 
panied by a parameter list and a record area. The parameter 
list contains information necessary for the operation 
requested as well as a location in which CCP will set a 
return code indicating the results of the operation. For 
certain operations, the programmer must supply additional 
information in the record area besides the terminal name 
and data. For example, when requesting that a display 
format be written to a 3270, the name of the display for- 
mat is given in the record area following the terminal name. 

See the sections for each language to determine such things 
as: the placement of op codes, return codes, input/output 
lengths, and symbolic terminal names. 

OFF operations are always in message mode (see index 
entry). Record and block mode operations are not valid 
when using OFF. 



Operation Considerations With DFF 

Copy, Erase, and Put Override are operations provided 
specifically for DFF users. These operations are described 
in detail in this section. Use of the Put Message operation 
to place the initial format on the screen or printer is also 
described. Considerations for using the remaining CCP 
operations under DFF are given in this section and under 
Operations in Cfiapter 2. See Examples at the end of this 
chapter for examples of using CCP operations under DFF. 



The Put Message is used to request that a particular printer 
or display format be retrieved from the object library and 
sent to the designated terminal. This operation is used to 
send either a complete new format or an overlay format to 
a terminal (see Display Concepts for Overlay Screens). 



Hex 


Dec 


RPGII 


Meaning 


1 


0032 


50 


mcB 


PUT Message 



One of the above values must be used depending upon the 
programming language. The name of the printer or display 
format to be sent to the terminal must appear in the first 
six positions of the record area immediately after the ter- 
minal name. If the name of the format is less than six 
characters in length, it must be left justified and padded 
with blanks. The output length must include the six-charac- 
ter format name. If there is no data to be added to the 
format (no fields defined as requiring execution time data), 
the output length is 20 (six for non-RPG SUBR92). 

If data is to be added to the format at execution time, that 
data should start in the first data position after the format 
name. The amount of space to be provided for each field 
must be equal to the length of each field as defined on the 
format description sheet. The order of the fields provided 
must be the same as the order that they were defined to 
DFGR or PFGR. The output length specified with the 
operation is determined by using the format generator 
printout for this format. Use the end position of the last 
output field for RPG SUBR92 (less 14 for all others) as 
your length (the format name is included in this end posi- 
tion). The result of the Put Message is controlled also by 
the display format itself. Functions controlled by the 
display format are: 

— Positioning of the cursor. 

— Whether or not the display will be cleared before 
writing the requested display format. 

— Device operations as initiated by the WCC. 

— Printer control through new line and end-of-message 
orders. 

The Put Message is changed automatically to Put Block 
by the control routine if blocking is required. (Refer to 
Storage Areas - Output Hold Area.) 
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Program Request under Format Put Message 



Operation Code 



The PRUF Put message is used to format the screen with 
data to be used by the next program requested from the 
designated terminal. The PRUF-Put override or PRUF- 
Put message operation normially is the last operation 
before releasing the terminal or going to end of job. 



Hex 


Dec 


RPGII 


Meaning 


1 


0832 


2098 


t6HCB 


Put override 



Hex 


Dec 


RPGII 


Meaning 


1 


0072 


114 


l^bfGB 


PRUF Put Message 



One of the above values must be used depending upon the 
programming language. The name of the format to be sent 
to the terminal must appear in the first six positions of the 
record area immediately after the terminal name. If the 
name of the format is less than six characters in length, it 
must be left justified and padded with blanks. The output 
length must include the six-character format name. If 
there is no data to be added to the format (no fields defined 
as requiring execution time data), the output length is 20 
(six for non-RPG SUBR92). 

As with the Put Message operation, DFF will automatically 
block this operation if blocking is required. See Example 
4 at the end of this chapter for more information on 
this operation. 



Put-No-Wail 

This operation is defaulted automatically by DFF to a Put 
Message operation. 



Hex 


Dec 


RPGir 


Meaning 


1 


0036 


54 


mcv 


Put-No-Wait 



Put Override 



Note: RPG 1 1 allows the Put Override to be combined 
with an Invite Input operation (see index entry Put with 
Invite Input). 



Additional Requirements 

• The format must have been previously sent to the 
printer or display by a Put Message or Copy operation. 

• The output length specified by the user in the parameter 
list must define the exact length of the override list for 
RPG SUBR92 (less 14 for all others), starting with the 
WCCand including all field information in the list. 
(Can be only the WCC, if desired.) 

• A DFF numeric field with a negative numeric content 
must have the sign over the units position. Space must 
be allocated in the format for the sign. DFCR moves 
the sign from over the units position to a position after 
the data (see DATA in Numeric Fields). 

• Information for a Put Override must appear in the user's 
output record area. Fields are to be defined in the same 
order as defined at generation time. 



Information Returned 

• Return codes (see explanation in Appendix E): 

Successful 

9 Terminal offline 

-n Negative return codes (I/O errors) 



The purpose of the Put Override operation is to (1 ) change 
the type, reposition the cursor, modify the data content, or 
any combination of these things for any fields defined in 
the format, or to (2) restructure the input record (only 
selected input fields are received). 
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Function and Use of Put Override 



Program Request under Format Put Override 



The Put Override allows the application programmer to 
change the field where the cursor is to be positioned, or to 
change the type, modify the data content, or do both for 
any field currently being displayed. Only the display is 
changed, not the display format in the object library or the 
field descriptor table in main storage. By specifying the 
appropriate WCC with the Put Override, the programmer 
controls device operations such as starting the printer, re- 
setting the keyboard, and sounding the alarm (see Selecting 
the WCC). 

The application programmer can also elect to receive input 
on the next input operation from the terminal from only 
those input, input/output, and SPD fields in the override 
list by specifying the appropriate WCC. The control routine 
checks the WCC. If the reset modified data tag bit is OFF 
in the WCC, the modified data tags for all fields are not 
changed and, on the next input request, data will be pro- 
vided for all input fields, output/input fields, and for SPD 
fields that would have been received normally. If the reset 
modified data tag bit is ON in the WCC, the modified data 
tags for all fields, protected or unprotected, are turned to 
OFF. On the next input request, data from only those 
input, output/input, and SPD fields specified in the override 
list will be passed to the application program. 

When selecting input fields using a Put Override, the reset 
modified data tag bit in the WCC must be ON (described 
previously). The user must be aware that this sets the modi- 
fied data tag OFF for Input types 1,2, 3,4, and 7, output/ 
input field types 1 , 2, 3, 4, 7, and 8, and SPD field types 3 
and 4. Also, for the SPD fields, the designator (» is not 
changed to the designator (?). If any of the selected input 
fields are one of these field types, the application pro- 
grammer should not leave the type entry for that field 
blank but should instead provide the type entry for that 
field as override information even though the field type is 
not to be changed. This sets the modified data tag ON as 
required by the definition of these field types. 

The format of the input record area, when selecting input 
fields, is determined by the order, and field length, of the 
fields as they are defined in the override list. The program 
logic must indicate the last output operation to the terminal 
and process the data on the next input from the terminal 
according to that indication. The layout of the input 
record area must be defined for each variation of input 
structure. Regardless of the input, the Al D character 
always precedes the fields in the user's input record area 
and should be examined by the application programmer 
before the field data is processed. 



Hex 


Dec 


RPGII 


Meaning 


0872 


2162 


BHGB 


PRUF Put Override 



The PRUF Put Override functions just like the normal Put 
Override operation with the added feature of formatting 
the screen with the data to be passed to a following 
program. The PRUF-Put Override or the PRUF-Put 
message operation is normally the last operation issued be- 
fore releasing the terminal or going to end of job. 

The information in the output record area, shown in 
Figure 8-1 1 , consists of: 

• Field Name. As defined in columns 1-6 of the field 
definition form. The name must be left justified and 
padded with blanks to a length of six characters. Use 
the same symbolic name as defined to PFGR or DFGR. 
Fields in an override list must be specified in the same 
order as during format generation. 

• Field Type. If the field type is to be changed, this entry 
must contain the number of the type wanted. Leave 
blank if type is not to be changed. Allowable changes 
are: 

- Output Fields-all types are interchangeable. 

- Input Fields-types 1 , 2, 5, and 7 are interchangeable; 
types 3, 4, 6, and 8 are interchangeable. 

- Output/Input Fields-types 1, 2, 5, 7 and 8 are inter- 
changeable; types 3, 4, and 6 are interchangeable. 

- SPD Fields-all types are interchangeable. 

• Cursor Position. A C entry positions the cursor in the 
first character position of this field. If the cursor is 
specified for more than one field, the last field with 

a C specified positions the cursor. A blank entry does 
not move the cursor. 
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Erase/Modify Data Indicator. Enter an M if there Is 
override data provided in subsequent positions. Sucii a 
change can be made in output, output/input, or SPD 
fields. A blank entry means data in the field is not to 
be changed. 

Enter an E If the data input or output/input field at 
the terminal is to be erased to nulls. The erase indicator 
is valid only for input or output/input field types. If 
the E Indicator Is used, the next override field name 
begins In column 17. 



Data. Only include this field if M is specified for modify 
data indicator. The M is immediately followed by data 
equal in length to the field length as defined during 
format generation time (length of SPD fields does not 
include designator character). If M is not specified for 
the modify data indicator, the next field name begins 
in this position. 



(for other 
than RPG 
SUBR92) 
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Figure 8-1 1 . User Output Area 
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The output length consists of: 

• One for the WCC 

• Plus the sum of the following information for all fields 
to be overridden: 

— Six for the field name 

— Three (one space for each of the three possible entries 
for type, cursor, and modified data indicator) 

— Field data length as defined at generation time (if 
data is provided) 

• An additional fourteen spaces If RPG SUBR92 is used. 



Considerations 

• With a Put Override operation, the application program- 
mer can select to receive input from only those input, 
output/input and SPD fields specified in the override 
list. The field names must appear in the same order as 
they were given during format generation. 

• To restore the display to its original condition, the 
application programmer could issue a Put Message or 
another Put Override. 

• The override list can consist of a WCC only, if desired, 
(for example, to restore the keyboard). In this case, 
input received from the terminal may be affected 
(although there are no fields specified), if reset MDT is 
also ON in the WCC. A Put Override of the WCC should 
be used only to print the display currently on a 3275 on 
an attached 3284 Model 3 printer. 

• An entry in a Put Override list may consist of a field 
name only, with blanks for type, cursor, and modify 
data indicator. In this case, if the WCC specifies reset 
MDT, then this field would be selected for input on the 
following input operations. If the WCC does not specify 
resetting of the MDT, this override entry is ignored and 
no 3270 text is generated. 



Example 1 

The structure of the record area should be as follows: 

1 . If RPG SUBR92 is used, the op code must be given 
in positions 1-4 and the output length must be given 
in positions 5-8. 

2. The six-character symbolic name of the terminal. 

3. The WCC. This field is mandatory. The WCC can be 
determined by following the directions in Figure 8-6. 

4. For each field which is to be overridden, the following 
nine positions must be given or reserved in the output 
record area: 

a. Six positions for a field name (left justified) 

b. One position for type 

c. One position for cursor (C) 

d. One position to indicate modified data (M) 
or erase order (E) 

5. The modified data indicator of M means that data 
is to be provided. If no data is to be provided (no 
M indicator) the record continues with the next 
symbolic field name. 



Example 2 

A primary use of the Put Override operation is interactive 
error detection/correction with input data being analyzed 
by the program logic. If any input fields are found to be 
in error, a Put Override operation is performed to the ter- 
minal with those fields in error displayed in intensified 
mode. Additionally, an error message can be displayed, 
the audible alarm sounded, and the cursor positioned at 
the first field in error. The RPG II programming example 
in Figure 8-12 illustrates the logic necessary to perform 
these functions. 

The input fields are diagnosed in sequence, with the two 
arrays initialized to blanks and array index B advanced for 
each field. When an invalid input is diagnosed, the sub- 
routine ERROR is executed, with indicator 63 set on for 
numeric fields. The cursor is positioned at the first field 
in error under the control of indicator 58. 

When all the fields have been diagnosed, indicator 61 set 
on indicates that a Put Override operation should be 
performed. 
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Figure 8-1:2. Put Override Example 
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Selecting the WCC 

Figure 8-13 is provided to assist in selection of the Write 
Control Character (WCC). To use the figure, determine 
the characteristics of the output device and the operation 
to be performed, then select the code from the chart. For 
example, the write control code that restores the keyboard 
and sounds the alarm on a display but does not reset the 
MDTs is an F. 
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This character is converted Internally to hex 6A for a WCC 
by DFGR when generating a format, and by DFCR when 
using the WCC In a Put Override operation. 

Figure 8-13. Write Control Characters 
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Copy 

The purpose of the Copy operation is to transfer a format 
between devices attached to the same 3271 Control Unit. 
See Selecting the Copy Control Character in this chapter. 

Operation Code 



Hex 


Dec 


RPGII 


Meaning 


1 


0042 


66 


btSDB 


Copy 



Additional Requirements 

The symbolic names of the terminal to receive the format 
(TO terminal) and the terminal to send the format (FROIVi 
terminal) appear in the output record area as follows: 

Not RPG SUBR92: 



TO terminal 


FROIVI terminal 


ccc 



1-<- 



■+►6 7-^ 



■*-12 13 



RPGSUBR92: 





TO terminal 


FROIVI terminal 


ccc 



■8 9- 



15-*- 



-»'20 21 



The Copy Control Character (CCC) is optional and, if 
present, appears in the first position after the FROM 
terminal name. For a discussion of CCC, see IBM 3270 
Information Display System Component Description, 
GA27-2749. A default CCC will be assumed if one is not 
given. 

The output length should be 20 (six for other than 
RPG SUBR92) if the default CCC is to be assumed, or 
21 (seven for other than RPG SUBR92) if a CCC 
is provided. 

The FROM and TO terminals must be connected to the 
same 3271 control unit. A Put Message or a Copy 
operation must have been successfully issued to the 
FROM terminal prior to Issuing a Copy operation. 



This operation cannot be performed on a 3275. Data 
currently displayed on a 3275 screen can be printed on 
an attached 3286 Model III Printer using a Put Override 
with the proper WCC. Data can be simultaneously displayed 
on a 3275 screen and printed on a 3286 Model III Printer 
by using a Put Message. 



Information Returned 

Return codes (see explanation in Appendix E): 

Successful 

9 Terminal offline 

-n Negative return codes (I/O errors) 



Function and Use of Copy 

This operation allows a format to be transferred between 
two devices attached to the same 3271 Control Unit. The 
application programmer may choose to use this operation 
instead of a Put Message for performance reasons. The 
advantage of this operation is that line transmission time 
is reduced because only a few characters are sent on the 
BSCA line. 

Considerations 

• When a complete format Image Is received by the TO 
terminal and an overlay format (see Display Concepts) 
was the last format sent to the FROM terminal, that 
overlay format will be the only part processed by the 
Display Format Facility. 

• Default CCC for a model 1 terminal is X'5B' (graphic 
character '$'): default CCC for a model 2 terminal is 
X'7B' (graphic character '#"). 

• A display format can be locked (made incapable of 
being copied) by defining a protected field starting at 
line 1, position 2. DFGR will automatically place the 
attribute (specifying protected field) at line 1, position 
1. 

• The output length for Copy does not include the 
"copy to" symbolic terminal name but does include 
the space for the "copy from" symbolic terminal 
name and, if given, the copy control character. 

• If a Put Override with select input fields was previously 
issued to the FROM terminal, it will be assumed that the 
same operation was performed at the TO terminal. 
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Example 

The RPG II example shown in Figure 8-14 illustrates the 
coding logic that can be used when the 3284/3286 is used 
by various terminals and/or programs as a log device. In 
this example, the printer is first acquired, copied to, then 
released, then acquired by the next Copy operation sequence. 



Indicator 36 signifies that the AID from the last input 
operation was an operator log request. The calculation 
logic performs three exception output operations to acquire, 
copy to, and release the printer designated as the log device. 
The return code should be checked after the Acquire opera- 
tion and the Copy operation. 



RPG OUTPUT SPECIFICATIONS 



IBM, 



lalional Business MachiriQ Corporation 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer | Date 


Punch 

















•[!]"'_ 



75 76 77 78 79 80 



Program I 

Identification 1 



o 



7 H 9 10 11 12 13 



ESMfOU 



Output Indicators 



And And 



3fc 



37 

381 



32 33 34 35 36 37 



LO&PTB 



^^?S3SEES!> 



End 
Postton 



Output 
Record 



8 
8 

8 



Constant or Edit Word 



45 46 47 48 49 50 51 52 53 W 55 56 57 SB 69 60 61 B3 63 B4 GS GS G7 SB 69 70 



Commas 


Zero Balances 
to Print 


No Sign 


CR 




X = Remove 
Plus Sign 

Y = Date 

Field Edit 

Z = Zero 

Suppress 


Yds 
Yes 
No 
No 


Yes 
No 
Yes 
No 


1 
2 

3 
4 


A 
B 
C 
D 


J 
K 

L 
M 






ZL \L QL 69 B9 ii 99 99 b9 E9 59 10 09 69 89 iS 93 S9 M £9 ZS IS Ofi 6V » tt Ofr 9V tt Zb Z\> If Ofr 6e BE iE 9E SE t€ EG CE LE OE 62 BE LZ 9C 9S K ZL EE iZ OC Bl 81 L\ 91 91 t-L CI Z\ U OL 



£ 9 S V C S 1 



Figure 8-14. Example 3284/3286 Coding 
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Selecting the Copy Control Character 

Figure 8-1 5 is provided to assist in selection of the Copy 
Control Character (CCC). To use the figure, determine 
the characteristics of the output device and the operation 
to be performed, then select the code from the chart. For 
example, to copy the entire buffer of a display and to 
sound the alarm, the code is G. 

Notes: 

1. The default CCC for a Model 1 terminal is $ (hex 5B) 
and a Model 2 terminal is # (hex 7B). 

2. When copying a display format to a terminal and input 
is expected from the copy-to terminal, it is strongly 
recommended that either the entire buffer or the 
attributes and protected CCC be specified to enable 
DFGR to identify all input fields. 
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^This character is converted internally to hex 6A for a WCC by 
DFGR when generating a format, and DFCR when using the 
WCC in a Put Override operation. 

Figure 8-15. Copy Control Characters 
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Erase 

The purpose of the Erase operation is to clear the data 
portion of all unprotected fields in the current format. 



Operation Code 



Hex 


Dec 


RPGII 


Meaning 
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0052 


82 


t6l6EB 


Erase 



If the entire display contains protected fields, the keyboard 
is unlocked, the AID is reset, and the cursor is positioned at 
line 1, position 1. 

Considerations 

• An Erase operation is effective only if something has 
been placed on the display by a Put Message or Copy 
operation. When Erase is used, be aware that unprotected 
output/input fields containing data will have data erased 
and MDT tags set to OFF. It Is suggested a Put Message 
be used to restore the display to its original condition if 
output/input fields are being used. 



Additional Requirements 

• A Put Message or Copy operation must have been 
issued to this terminal prior to the Erase operation. 

• The symbolic terminal name must be specified in the 
users output record area. 

• Output data length = 14 (or if non-RPG SUBR92). 



Information Returned 

• Return codes (see explanation in Appendix E): 
Successful 

9 Terminal offline 

-n negative return codes (I/O errors) 

Function and Use of Erase 
The Erase operation: 

• Clears the data portion of all unprotected fields to nulls 
(X'OO'). 

• Sets the modified data tag on all unprotected fields to 
off. 

• Unlocks the keyboard. 

• Resets the AID byte. 

• Repositions the cursor to the first character location in 
the first unprotected field. 



Return Codes 

CCP return codes, including the special meaning of the data 
truncated return code under 3270 DFF, are described in 
Appendix E. 

If a negative return code is given for a Copy operation. 
Put Message operation, or Put Overrides operation with 
reset modified data tags, or if the CLEAR key exception 
return code is given for an input operation, DFCR treats 
the terminal as if no format were ever issued to it. Thus, 
if a negative return code is given for one of these operations 
(or CLEAR return code) and the next operation is a Get, 
the program is cancelled with a termination code of FF. 

Input Operations - Accept Input, Get, Stop Invite Input 

Input operations are used to request input data (message) 
from the terminal whose name is specified in the record 
area (or in the parameter array for RPG II). When using 
display format services, the input operation codes that 
require processing by DFCR are: 

Get 

Invite Input 
Accept Input 
Stop Invite Input 

The control routine moves data into the input areas if data 
was received successfully. For the manner in which fields 
are handled, see Field Concepts and Record Concepts. A 
Put Message or Copy operation must have been success- 
fully issued to the terminal prior to issuing one of these 
operations. 
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The structure of the input record area (beginning in position 
15 of the data area when using RPG SUBR92 or position 
7 for other programs) is given on the printout of the format 
generation. The record area must be long enough to contain 
the end position +14 (+6 for other than RPG SUBR92 use) 
specified in the format generation listing. The first 
character will be the AID character followed by data for 
all input, output/input and SPD fields, in the order defined 
during format generation. 

If a Put Override was previously issued to the terminal, and 
that operation specified select input fields (reset MDT in the 
WCC), then the input record area will contain the AID char- 
acter followed by data for all the input, output/input, and 
SPD fields whose names appeared in the last Put Override 
list. 

If a Put Override was not issued to the terminal, the maxi- 
mum expected input length you put in the fourth element 
of the parameter list or array should be the end position 
given for all uses, under length of input record area required 
in DFF program on the format generation printout. 

If a Put Override with select input fields was issued to the 
terminal, the maximum expected input length to be speci- 
fied in the parameter list or array must include one for the 
AID character plus the total data length of all input, out- 
put/inpul: and SPD fields whose names appear in the over- 
ride list +14 (+6 for non-RPG SUBR92 use). 

If a maximum expected input length is given which is less 
than the actual length, a data truncated exception return 
code will be passed to the program. In this case, the trun- 
cated length reflects the full data length of all fields that 
could fit into the area as specified by the maximum expec- 
ted input length entry in the parameter list or array. Thus, 
complete fields are returned; no incomplete fields are re- 
turned as in non-DFF operations. 

Note: Program request data is processed by DFF if the 
program requested is a DFF PRUF program, and PRUF is 
active on the 3270 terminal at program request time. Only 
in this case is the AID character returned in the first posi- 
tion of the user's area (See Chapter 2 for more information 
on PRUF). The effective input length field in the input 
record area as filled in by RPG SUBR92 shows the data 
length of all fields that can fit into the area plus the AID. 



Invite Input 

Invite Input requires a previously issued Put Message or 
Copy operation. The maximum expected input length is 
disregarded by DFF for this operation. 



Release Terminal 

This operation is used by the Display Format Control 
routine to maintain, by program, a list of terminals using 
DFF. 

USER PROGRAM RECORD AREA 

The size of the input and output record areas (or combined 
input/output record area) in programs using DFF is calcu- 
lated from information provided in the printed output of 
DFGR. Figures 8-16 and 8-17 show the printed output from 
DFGR for two formats ~ $ZOREN and $Z0009. The sizes 
of the record areas for programs using these formats would 
be calculated as follows: 

• Size of the output record area (programs using RPG 
SUBR92): 

$ZOREN $10009 

- Highest end position (from 0020 0020 
DFGR printout) 

Total 0020 0020 

• Size of the output record area (programs not using 
RPGSUBR92): 

- Highest end position (from 0020 0020 
DFGR printout) 

- Less 14 positions used in 0014 0014 
SUBR92 record area only 

- Plus 6 positions for 0006 0006 
terminal name 

Total 0012 0012 

• Size of the input record area (programs using 
RPGSUBR92): 

- Highest end position (from 0193 0547 
DFGR printout) 

Total 0193 0547 

• Size of the input record area (programs not using 
RPG SUBR92 SPECIAL): 

- Highest end position (from 0193 0547 
DFGR printout) 

- Less 14 positions used in 0014 0014 
SUBR92 record area only 

- Plus 6 positions for 0006 0006 
terminal name 

Total 0185 0539 
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INPUT AREA FORMAT - ENO POSITIONS FOR RPG PROGRAMS 
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LENGTH OF OUTPUT RECORD AREA REQUIRED IN OFF PROGRAM 
RPG •SUBR92* - 0020 OTHER - 0012 



LENGTH OF INPUT RECORD AREA REQUIRED IN OFF PROGRAM 
RPG »SUBR92* - 0193 OTHER - 0185 



INFORMATION FOR USE DURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELO DESCRIPTOR TABLE IS 1150 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS 1146 
THE DECIMAL LENGTH OF THE INPUT TEXT IS 0240 

Figure 8-16. Display Format Generation ($ZOREN) 
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INPUT AREA FORMAT - END POSITIONS FOR RPG PROGRAMS 
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END 


NAME 


LENGTH 


POSITION 


* 


NAME 


LENGTH 


POSITION 




NAME 


LENGTH 


POSITION 










* 













_— 




RTCODE 


004 


0004 


« 


LENGTH 


004 


0003 




TMNAME 


006 


0014 


- AID- 


001 


0015 


* 


NAMES 


020 


0035 




NAMES 


020 


0055 


F IRSTK 


033 


0093 


* 


SECOND 


033 


0131 




THIRD* 


038 


0169 


PORTHJ 


38 


0207 


* 


FIFTH* 


038 


0245 




SIXTHS 


036 


0283 


ONE 


044 


0327 


* 


T«0 


044 


0371 




THREE 


044 


0415 


FOUR 


044 


0459 


* 


FIVE 


044 


0503 




SIX 


044 


0547 



LENGTH OF OUTPUT RECORD AREA REQUIRED IN OFF PROGRAM 
RPG •SUBR92* - 0020 OTHER - 0012 



LENGTH OF INPUT RECORD AREA REQUIRED IN OFF PROGRAM 
RPG *SU0R92* - 0547 OTHER - 0539 



INFORMATION FOR USE DURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH JF THE FIELD DESCRIPTOR TABLE IS 0396 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS 0463 
THE DECIMAL LENGTH OF THE INPUT TEXT IS 0579 

Figure 8-17. Display Format Generation ($Z0009) 
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A program using both of these formats could use a single 
input record area and a single output record area. The 
size of each would be equal to the size required for the 
larger format. In this case, the size of the output area 
would be 12 for programs not using RPG SUBR92 or 
20 for programs using RPG SUBR92. The size of the 
input record area would be 539 for programs not using 
RPG SUBR92 or 547 for programs using RPG SUBR92. 

The output record area in these two examples allows for 
only the format name. An additional consideration for a 
larger size output record would be if the Put Override opera- 
tion is issued by the program or if the program provides 
output data to display format fields during program execu- 
tion. The output record area would then need to be large 
enough for the Put Overrides list created during program 
execution or the total of the output fields, (value under 
heading length of output record area required in OFF 
program from DFGR printout) whichever is larger. 

The program could also use a single combined input/output 
record area. The combined record area (created in RPG 
when SUBR92 file is used) would need to be as large as 
the larger of the input or output record areas. 



DISPLAY CONCEPTS 



New Screens 

The Put Message is used to request that a particular dis- 
play format be retrieved from the object library and written 
to the terminal. If the format is already at one terminal, 
a Copy operation can be used to duplicate the format from 
the first terminal to a second terminal attached to the same 
3271 control unit. (Note: The format cannot be copied 
if a protected field starts in line 1 , position 2.) 

Overlay Screens 

Overlay screens are useful when only a portion of the screen 
is subject to change. 

When multiple display formats are written to the same dis- 
play, the integrity of the displayed data is the user's respon- 
sibility. The following must be considered if the user places 
a second format over a part of a format already being dis- 
played without specifying 'clear before writing' on the dis- 
play control form. 
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MDT should be set to OFF for all 
fields on Format 1 when Format 2 
Is placed over Format 1. 



This IS the original format 



5. 



This I'l ihf ijii()injl ■ffiiniiir 




Entire fields or groups of fields should 
be overlaid to prevent residual data 
from appearing between fields in the 
overlay format. Also, residual data 
following an SPD field in the overlay 
format may be transmitted along with 
the data for the SPD field during an input 
operation. This can cause data for other 
fields in the overlay screen to be lost. 

When using overlay screens, it is 
important that the terminal 
operator does not key into a field 
which belongs to a previous format. 
This could cause data for the fields 
in the overlay screen to be lost. 

The overlay format need not define 
complete lines of data. An overlay 
format can define fields between 
fields of an existing format. It is 
important, however, that fields of an 
overlay format and their defining 
and delimiting attributes do not 
partially overlay an existing field 
or are not placed within the area 
of an existing field. Overlay fields 
should either be placed in an unde- 
fined area or should completely 
overlay existing fields. 



2. The control routine provides 
support for only the last 
format placed on the display. 
Only those input fields defined 
by the last display format will 
be accepted. All other field 
data will be ignored. 
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DFF, CCP CONSIDERATIONS 
Assignment Control Statements 

During the assignment stage of CCP (see CCP System 
Reference Manual), tlie user must define tliose terminals 
which, on a program basis, require DFF support. The 
assignment control statements affected and the informa- 
tion to be specified are as follows: 

SYSTEM statement — For DFF, a parameter on this state- 
ment identifies the disk unit and object library containing 
the display or printer formats. 

TERMATTR statement —This statement defines terminal 
attributes. On this statement, the user specifies whether 
or not DFF will be used with all terminals referencing this 
terminal attributes set. Under Model 10 and Model 12 CCP, 
the BLKL parameter is used to define the size of the output 
hold area (in main storage). The output hold area is used to 
prepare the 3270 data stream for output operations. A 
separate hold area is supported for each BSCA line. 

PROGRAM statement — This statement defines the logical 
structure and resource requirements of an application 
program. When using the Display Format Facility, the 
information required on a program basis is as follows: 

• The maximum number of terminals, using the Display 
Format Facility, allocated concurrently to the appli- 
cation program. 

• The maximum number of display or printer formats the 
program will use. 

• The size of the largest field descriptor table used with this 
program. The character length of the field descriptor 
table is printed by the Format Generation programs 
(DFGR and PFGR) for each format generated. 



Storage Areas 



Output Hold Area-Model 10 and Model 12 CCP 

One output hold area for each BSCA line will be appended 
to the control routine to hold the 3270 data stream for 
output operations. When using Put Message or when 
overriding the attributes and/or contents of fields currently 
being displayed (see Put Overrides under 3270 Display 
Operations) this area is used by the control routine to 
build a data stream based on the execution time data or 
the override information in the output record area of the 
application program. 

The sizes of the output hold areas for each BSCA line need 
not be the same. Each may be the minimum of 256 bytes 
or as much larger (by multiples of 256 bytes) as needed 
up to the size of the output text of the largest display or 
printer format that uses this set. The size of the hold areas 
are determined by the BLKL parameter of the TERMATTR 
statement of the assignment set under which the program 
will execute. 

If the assigned hold area space is less than the size of the 
output text of the largest display or printer format, the 
control routine automatically splits the data stream into 
output blocks and sends each block separately. If the con- 
trol routine is to perform blocking, the hold area must, 
contain at least 512 bytes in order to accommodate one 
256-byte block plus information that cannot be sent in the 
current block. The user should be aware that if he uses 
blocking to achieve core economy, it will probably result 
in less efficient use of the BSCA line if the line has a high 
rate of activity. 
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Output Hold Area - Model 15 CCP 

The output hold area is allocated dynamically by the CCP 
from the TP buffer area. The size of the output hold area 
is determined by the CCP based on the length of the output 
text of the format for each particular user program opera- 
tion. There may be, at most, two output hold areas 
allocated at one time, one for each BSCA line. 



TP Buffer 

Get, Invite Input, and (under Model 15 CCP) Put operations 
are not executed under DFF until TP buffer space is 
available. In calculating TP buffer area size at assignment 
time, the user should consider Invite Input, Get, and (under 
Model 15 CCP) Put operations that require DFF. See 
,TP Buffer (dynamic) in CCP System Reference Manual 
for information on estimating the size of this area. 



User Program Storage Considerations 

In order for DFF to support multiple application programs 
concurrently, a storage area is appended to each application 
program when the program is loaded. The size and contents 
of this area are determined at assignment time. 

The storage area contains a fixed constant area plus a 
variable area depending upon the following: 

• Maximum number of 3270 terminals the program can 
service concurrently. (Take into account the maximum 
number of requesting terminals and program selected 
terminals that can be serviced at one time.) 

• Number of display or printer formats used 

• Length of the longest field descriptor table given on the 
PROGRAM statement. 

The user must specify on the PROGRAM statement the 
size of the largest field descriptor table (information pro- 
vided by the display or printer format generator). A 
particular field descriptor table remains in the storage area 
appended to the application program until an output or 
input request requires a different format. On output, the 
table identifies those fields to be supplied data by the user's 
output record area and also supports overrides to a field 
within the display. On input, the table aids in constructing 
the input record area from data received from a terminal. 
For storage size estimates, refer to CCP System Reference 
Manual. 



Terminal Operator Actions 

Keys 

See Operator's Guide to IBM 3270 Information Display 
Systems, GA27-2742 for description of all 3270 keys and 
their actions. 

Use of keys with DFF: 

Key Situation/Resulting Action 



ENTER 



CLEAR 



Program Attention 
keys-ENTER, 
all Program 
Function (PF) 
keys, and the 
Program Access 
(PA) keys 



When the operator completes an 
operation and presses ENTER, the 
fields with MDT-ON are read auto- 
matically in response to a poll request 
from CCP. 

A 07 return code is returned to the 
application program when the operator 
of a terminal presses the CLEAR key 
(returned on the next input operation). 
An AID character indicating CLEAR 
is never returned to the user program, 
whether or not the program uses DFF. 
The 07 return code is given to the pro- 
gram if the terminal operator resumes 
communication with the application 
program after data mode escape. 

When the operator presses any one of 
these keys, the terminal responds to an 
input request from the system and the 
Attention Identification (AID) char- 
acter is generated (to identify which 
key was pressed). The AID is the 
first field in the input record. If a PA 
key is pressed, only the AID character 
appears in the input record area, no data. 

If selector pen attention is caused by 
selection of an SPD field, each field that 
has the modified data tag ON will have 
a greater than (>) sign in the leftmost 
position of the field in the record area 
and the remainder of the field will be 
blank. 
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Key 

Character 
oriented keys 



Field 
oriented Keys 



ERASE INPUT 



ERASE EOF 
End of Field Icey 



Situation/Resulting Action 

A cluster of four keys (located on 
the right of the keyboard) move the 
cursor one location at a time. These 
keys are;|(up), \ (down)7*-(right), and 
-•—(left). The curspr may be moved 
into any character location, including 
unprotected and protected alphameric 
character and attribute character 
locations. All four keys have typa- 
matic operation (keep repeating when 
key is held down); all four are capable 
of causing the cursor to 'wrap'. 

Four keys that move the cursor to the 
first position in a field. These are — >-\ 
(Tab),}— (Backtab),}— '(New Line) 
and the SKIP key. The tab key moves 
the cursor to the first character 
location of the next unprotected data 
field. If the cursor is located in other 
than the first location of an unpro- 
tected data field, the Backtab key 
causes the cursor to move to the first 
character location of that field. If 
the cursor is already located in the 
first position of a protected field, 
the cursor moves to the first alpha- 
meric character location of the first 
preceding unprotected data field. The 
New Line key moves the cursor to the 
first unprotected character location 
of the next line. The SKIP key is on 
the Data Entry Keyboard only and 
performs the same functions as the 
Tab Key. 

This key clears all unprotected fields 
to nulls and repositions the cursor to 
the first unprotected character location 
on the screen. It also resets all modi- 
fied data tags associated with unpro- 
tected data fields. 

If the cursor is located in an alpha- 
meric character location in an unpro- 
tected data field, this key clears the 
position occupied by the cursor and 
all remaining character positions in 
that field. The cursor does not move. 
If this key is pressed when the cursor 
is located in a protected field, it dis- 
ables the keyboard and no character 
locations are cleared. 



Key 

FIELD MARK 



DUP 



Situation/Resulting Action 

This key provides a means of informing 
the application program of the end of 
a field in an unformatted display. If 
the key is used in entering data, no 
special handling is provided when 
using DFF. 

This key provides a unique character 
code to be entered into the display 
buffer and a standard Tab key opera- 
tion to be performed. The DUP 
character provides a means of in- 
forming the application program that 
a "duplicate" operation is indicated 
for the rest of the field in which it is 
located. If key is used in entering 
data, no special handling is provided 
when using DFF. 



Operator Identification Card Reader 

The Operator Identification Card Reader is a special feature 
for attachment to a 3277 or 3275 Display Station. It 
reads a small magnetic card encoded with a unique identi- 
fication number. When the card is placed into a reader, 
the text on the card is read into the display buffer. For 
the card read operatioh, the cursor must be positioned at 
the first character location of the input field. The field 
should be an unprotected alphameric field. The AID is set 
to indicate the operator Identification Card Reader. 

The field length should always be the length of the text 
plus three. The alphameric data which will be presented 
to the application program consists of text, an End of 
Record (EOR) or End of Inquiry (EOl) character, the 
LRC character, and one'blank. 



This is the field 



EOR or EOl 



LRC j Blank 



There is a hardware-generated attribute character entered 
automatically at the location of the cursor. This attribute 
character must be removed by the application program if 
this field is to be re-used. This can be accomplished by 
issuing either a Put Message or Put Override operation. 
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DISPLAY FORMAT TEST ROUTINE ($CCPDT) 

$CCPDT is a stand-alone program which displays DFF 
formats on an IBM 3270 Information Display System. 
$CCPDT operates under the IBM System/3 Models 10, 12, 
and 15. Communication between $CCPDT and the 3270 
is maintained using the multiline/multipoint (MLMP) 
binary synchronous communications (BSC) data link. 

$CCPDT, shown in Figure 8-19, uses the formats generated 
by the Display Format Generator routine (DFGR) or the 
Printer Format Generator routine (PFGR). The formats 
must be in the object library of the program pack from 
which $CCPDT is loaded. 

For Model 10 and Model 1 2, $CCPDT will use SYSIN as 
the input device. When $CCPDT is loaded the following 
option menu will be logged on SYSLOG: 

OPTION MENU 

A. SEND FORMAT TO TERMINAL 

B. READ FORMAT FROM TERMINAL AND PRINT IT 

C. GO TO EOJ 

D. SEND FORMAT TO TERMINAL, POLL, PRINT INPUT 

E. SEND FORMAT TO SYSTEM PRINTER 

ENTER ALL. OPTIONS DESIRED THROUGH SYSIN IN ANY ONE OF TWO FORMS BELOW 
FFFFFF PPPP AAAA 
FFFFFF * 

For Model 15, $CCPDT will use the console as the input 
device. An option menu will appear on the screen describ- 
ing each option. The input data may be entered starting 
at the cursor position. 

A. SEND FORMAT TO TERMINAL 

B. READ FORMAT FROM TERM., AND PRINT IT 

C. GO TO EOJ 

D. SEND FORMAT TO TERM. , POLL, PRINT INPUT 

E. SEND FORMAT TO SYSTEM PRINTER 

1)0 FFFFFF PPPP AAAA 2)0 FFFFFF * 

T 

Cursor 



3270 Display Format Facility (DFF) 8-61 



$CCPDT provides the user with two forms of input records 
and five options: 

1. FFFFFF PPPP AAAA 
where: 

= A, B, C, D, or E (these options are described 

later in this chapter) 
F = Format name, which must begin with the 

characters $Z. The name must be at least 

three characters long but not more than six 

characters long. 
P = Poll characters (EBCDIC or ASCII characters) 

Enter immediately following the first blank 

after the format name. 
A = Address characters (EBCDIC or ASCII 

characters) 



2. 



FFFFFF 
where: 
O 



A, B, C, D, or E (these options are described 

later in this chapter) 

Format name, which must begin with the 

characters $Z. The name must be at least 

three characters long but not more than six 

characters long. 

Last specified poll and address characters 

(see note). Enter Immediately following 

the first blank after the format name. 



Note: If the poll and address characters are not specified, 
$CCPDT will use the last previous specified poll and 
address character. In this way the user can send multiple 
formats to the same terminal. If the user does not specify 
the poll and address characters at least once, $CCPDT 
will default to the following characters: 

Poll characters = mm (40404040) 
Address characters = -m (60604040) 



Options 

A. Send Format to Terminal 

$CCPDT reads the selected format from the program 
pack. The format is then transmitted to a terminal. 
This option allows the user to view the format. 
This option does not allow input or output data to 
be received or transmitted. 

B. Read Format from Terminal and Print It 

This option allows the user to test for invalid 
characters within the text stream. $CCPDT reads 
the entire format from the terminal (read buffer) 
and prints it. The user should compare the format 
on the terminal and the data portion (text stream) 
of the format printed. (See Figure 8-14 for example 
of printout.) 

C. Go to End of Job 

This option should be entered after the user has 
entered all other options to be used. $CCPDT will 
then go to end of job. 

D. Send Format to Terminal, Poll for Input and Print 
the Input Data Received 

$CCPDT sends the format to the terminal and polls 
the terminal for input. The user enters data on the 
terminal keyboard. When attention is requested by 
the terminal operator by pressing either the ENTER, 
PA or PF key, $CCPDT receives the modified data 
and prints it on the system printer. This is a means 
of verifying the modified data transmitted to 
$CCPDT or what the text stream would look like 
if sent to a non-DFF application program. (See 
Figure 8-14 for example.) 

E. Send Format to System Printer 

$CCPDT reads the selected format from the program 
pack and prints the entire format on the system 
printer. This allows the user to view the 3270 text 
stream and provides a copy for documentation. 
(See Figure 8-14 for example of printout.) 
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Control flow 
Data flow 



3270 Display 
Formats and 
Field Descriptor 
Table 



$CCPDT prints/displays the options 
menu on the SYSLOG device. 

^y $CCPDT reads an option from SYSIN. 

©$CCPDT reads the format name specified on the option 
record from the object library of the program pack. 

MiW $CCPDT sends the format to the terminal. 

0$CCPDT sends the format to the system printer, or 
sends modified data from the format to the 
system printer. 

Figure 8-19. $CCPDT Functions 
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Address 



Text of Format in Hex 



Text of Format in Character 



$zi(pro 












0000 


27F5C332 


3211C604 


1060C3E4 


E2E30 4D4 


C 50^4 005 


06481 ir.6 


00118 


F310E85C 


5G5C5C5C 


5C lie 660 


10600 506 


E 3400605 


40C6C9n3 


00 30 


C5HC8FA 


1060C3E4 


E2E306D4 


509400 5 


C104C511 


C9C31DE8 


0048 


5C5C5C5C 


5C5C5C5C 


5C5C5C5C 


5C5C5C5C 


5C5C5C5r. 


5C5Cll4fi 


OOftO 


VAltbOfll 


C8CSn74C 


E306114B 


E3lDEe5C 


5C5C5C5C 


5C5C5C5C 


0078 


5C5C5C5C 


5G5C5C5C 


5C5CSC5C 


5C114FC4 


1D60C9E3 


C 5044 005 


0090 


064B114F 


0310E85C 


5C5C5C5C 


5C5C5C11 


4F501D6C 


D5D6E340 


00A8 


06D540C6 


CSD3C511 


D1E41060 


CSE3C504 


4CC4C5E? 


C34Blini 


OOCO 


FaiCFflSC 


EC5C5C5C 


5C5C5C5C 


5C5C5C5C 


5C5C5C5C 


5C5C5C 


Figure 


8-14. Examp 


le of $CCPDT Format Printout 







] 



5C FM -CUSTOMER NO. F 

X Y****** F j:not on FIL 

F H4 -CUSTCKFR N*«F IC Y 

M -SHIP TT .T f ********* 
************* C -ITEM N 

0. L ¥**♦♦♦*♦♦ j;not 

ON FILE JU -TTFM CFSC. J 
3 f ******************** 



$CCPD T Considerations 

Any format that the user wants to test must be in the 
program pacl<'s object library. Before a format is sent to 
a terminal or the printer it is scanned for nulls (00). In 
fields within formats defined as having execution time 
data containing nulls, the nulls are replaced by asterisks. 
Also in overlay formats with input fields containing nulls, 
these nulls are replaced by asterisks. Since nulls do not 
appear on the terminal, by replacing the nulls with 
asterisks, the user is able to see the null fields. 



OCL Statements 

An initialized MLTERFIL must be on F1,foi- logging 
control station terminal error statistics. The OCL required 
to initialized MLTERFIL is: 

//LOAD$$BSFI,unit 

// FILE NAME-MLTERFIL,UNIT-F1,PACK-pack, 

TRACKS-1,L0CATI0N-track number (optional), 

RE:TAIN-P 
// RUN 

The following OCL is required to run $CCPDT: 

// LOAD $CCPDT,unit 
[// BSCA LINE-2 ] see notes 
// RUN 

Notes: 

1 . $CCF*DT uses BSCA-1 ; if the user wants to use the 
BSCA LINE-2 instead of BSCA LINE-1, include the 
optional BSCA LINE-2 statement in the OCL. No 
recornpilation of the program is required. 

2. For Model 8 using the ICA or local display adapter, the 
user must enter the BSCA LINE-2 OCL statement. 



Display Format Test Routine Diagnostic l\/lessages 

During processing, DFTR checks completion codes, status 
of terminals, and the various types of program intervention. 
Messages stating the reason the completion code was given, 
the status of terminals, and the type of program inter- 
vention received are logged on the system printer. For 
the DFTR diagnostic messages, see the CCP Messages 
/Itonua/, GC21-5170. 



FORMAT FIND ROUTINE (5704-SC2 Only) 

The format find routine (CCPFMT) makes formats that 
have been created or modified by DFGR or PFGR in 
another partition, available to programs in the current 
assignment set. The routine is executed under CCP and 
performs the following functions: 

• Places the current object library C/S (cylinder/sector) 
location of the format into the format index in 
$CCPFILE. 

• Updates the DFFSFDT value of the PROGRAM 
assignment statement. 

To use CCPFMT, make the following entries in the 
assignment set: 

// TERMATTR ATTRID04,DATAFORM-MESSAGE, 

DFF3270-NO 
// PROGRAM NAME-CCPFMT,NEVEREND-YES, 
ENDMSG-NO 

The routine is invoked from either the system operator's^ 
console or a command terminal. For additional informa- 
tion on the use of CCPFMT, refer to the Model 15 CCP 
System Operator's Guide. GC21-7619. 

Note: When CCPFMT is included in an assignment set, 
ATTRID-04 is reserved for format find. 
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EXAMPLES 

Example 1— DFF Formatting Example 

Problem: Design a display format to be used on the 3270 
display with an order entry program. Make the format usable 
with any programming language available under CCP. 

Solution: Plan the format by laying out fields on a display 
layout sheet. This then serves as a visual guide in filling 
out the field definition forms. 





DISPLAY FORMAT SPECIFICATIONS 












GX21-9175 

Printed in U 


'""■"^ORDER ElMTRr 


Completed bv 


Punching 
Intt ructions 


Graphic 
















Pass 1 01 H 


Punch 

















P- 3/i3 



DISPLAY CONTROL 



w 



2 3 4 5 6 7 



i^MiElMM 



Field Name 
Cursor Position 



Ri 



I 



PRINTER CONTROL 



t 

32 33134 35 



! 

56 57 



i 

'3 
64 65 



Identificalion-SequBnce 
73 74 7578 77 78 79 80 



Use to 
catalog 
format in 
object library, 
(first two 
characters 
are $Z). 



It 

I I F 



' Disk unit where DFGR will place format into the object library 



I L— ^■^— Format is designed for 3270 display device. 

^— — Entry is Ignored because there is an entry in column 17 

Clear before writing 
— 1 920K;haracter display 
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Primed in U.S.A. 




m Shaded boxes indicate defining attribute positions. 
DiOpen boxes indicate trailing attribute positions. 
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Note: The large letters identify a portion of the display 
screen with a segment of the field definition information 
as it appears on the field definition forms and on the listing. 

Q This heading is a type 1 output field which means it 
is to be displayed at normal intensity on the screen. 

The entry on line 2 position 3 (under customer number) 
is a type 3 input field which means that it is a 
numeric field to be displayed at normal intensity. 

The entry on line 2 position 21 (under customer name) 
is a type 1 output field which means that it is displayed 
at normal intensity. 



a 



The entry on line 2 position 46 (under ship to) is « 
type 1 output/input field. This entry is examined by 
the terminal operator and changed if necessary. 

Line 07 contains headings (type 1 output fields with 
normal intensity). The items in the quantity column 
are type 3 (numeric) while the item numbers are 
type 1 input (alphameric). Automatic skip causes 
the cursor to move to the next quantity entry. 



Q Display line 22 contains visible headings (type 1 output 
fields) and fields into which data can be placed by 
using Put Overrides at execution time (type 1 
output fields). 

Q Display line 24 initially contains a series of type 5 
output fields. Any one of these fields can be changed 
at execution time by the application program. They 
could, for example, be changed to displayed fields 
with high intensity. 

The display control form is used to describe the format in 
such a way that it can be properly stored and retrieved. 

All the information on the display control and field defini- 
tion forms is transferred to cards and used as input to the 
display format generator. 

Generation results include: 

1. The display format consisting of the field descriptor 
table and the 3270, data stream with control infor- 
mation are entered into the object library under the 
symbolic format name. 



The fields in the rest of the line are defined as type 1 
output/input fields. Note that there is a G in the 
data source column indicating information is pro- 
vided at generation time yet no entries appear in 
columns 32-71. All output and output/input fields 
have been described as being generation-defined with 
no entries made in columns 32-71 because data will 
be provided using a Put Override during execution 
time. 



!. Printout information: 

a. Printout of the specification forms. 

b. Log of diagnostic error messages. 
Q c. Sequential list of output fields. 

Q d. Inputdatafieldsand their order of appearance 
in the input record area. 
~e. The decimal length of the field descriptor table. 

f. The decimal length of the 3270 output data 
stream. 

g. The decimal length of the 3270 input data 
stream. 
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Display line 1 contains a visible heading. 



FIELD DEFINITION 




:u 



An X in column 72 allows for continuation on next line. 



Data lor Output, Output/Input and Detectable Fields 
32 33 34 35 J6 37 38 39 40 41 4 2 43 44 45 46 47 48 49 5Q 51 52 53 54 55 56 57 58 59 60 61 62 63 61 65 66 6? 68 69 7a\ l 



2 3 4 5|6 7 8 9 loTTl 12 1314 15^6 17 IB I920I2I 22 2324 25|26 27 2629 30l31 323: t34 35f3637 3839 41 



ITEMI iMd 

DESiRrjpJrti^. 

parqEi 



6 7 a 9 $ 1 ii 12 1: 



ntilicaiion-Seaueni 
72 73 74 75 76 77 78 79 8 




'Even-numbered display lines 8-20 contain fields for 
entering order data. 

Odd-numbered display Ifnes 9-23 are defined as one- 
character blank fields in order to cause a blank line 
to print on the 3284 and 3286 Model 1 and 2 printers. 




2 3 4 5 6 7|a 9|1011|12I314|16|1G|17|18|19|20|2||22|23|242526 2728293031|, 2 ] 4 5|6 7 9 9 lOJll 12 13 14 iipS I 7 18 19 20|2I 22 23 24 25|26 27 26 29 30|3I 32 33 34 3E|36 37 38 39 40 



2 3 4 5|6 7 B 9 1q|i 1 12 13 14 IBJIS 17 IB 19 20pi 22 23 24 25|26 27 28 29 30pi 32 33 34 35)36 37 3939 40 



72I73 74 75 76 77 78 79 80 
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8 
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n1 


11 


1213M 


15] 


617 18 


19 70 


21 22 23 24 25 


26 27 28 29 30|31 32 33 34 35 


38 37 38 39 40 


T^IZ 74 75 76 77 78 79 80| 
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- 












— 








k 




- 
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7 
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-- 
































































: 


- 




















- 


- 
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6 7 8 9 10|l1 1213 14 15 


16 17 18 tgaofcl 22 23 2-126)26 27 26 29 301: 


1 32 33 34 3^36 37 36 39 40 
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CUSTOMER NUMBER 
SHIP lu 



CUSTOHbR NAME 



LtZuRtNLUSNlJ 2Y X R^ 

FHEAUl 0103 bOlO 
h 

FCUSNU 0^03 6 iH 

HiNlAMt U^^l ililo 

FSNAME U^46 i:2 iON 

HAUORl 0321 <!2l0 

FSAuURlOS'tb 22 IfH 

FA0L)R2 0421 ^210 

hSAUUR2U<!|46 22 li,N 

FAUUR3 U321 221G 

t-SAaLIR305<i6 22 loN 
* 

* THt HELU NAMES 'tiLANK-' wlLL CAUSE A BLArtK LINE 10 PRINT 

• SKIPPED UN THE 32B4 ANO 3280 MOOfcL 1 ANU 2 PRINTERS. 






FULANK10602 


in. 


PHEAUR1O703 


81G 


fHEAUR20712 


71i> 


FHfcA0R3O728 


lllG 


FHEAUR40748 


510 


FHfcAUR50757 


lUk^ 


t-HEAUR6u770 


1010 


FQTYl 0803 


04 3Y 


HTtMNlU«12 


08 lY 


POESCR1082't 


2010 


t-PRlCE10848 


71u 


FuTYuHHJ861 


410 


F8ACKUlU«73 


410 


FULANK2U\402 


no 


FQTY2 1003 


4 3Y 


f 1TEMN21U12 


8 lY 


F0ESCR2102'> 


2010 


FPR1CE21U48 


71o 


FQTYUH21061 


410 


FBACKO21073 


41o 


Fbl.ANK31102 


110 


FUTY3 1203 


4 3Y 


FITEMN31212 


8 lY 


FDeSCR31224 


2010 


FPkICE31248 


71o 


FUTYUH31261 


410 


FBACK031^73 


410 


FbLANK41302 


Uo 


FOTY* i<.u3 


4 3Y 


FlTEMN'tl4l2 


8 lY 


FDESCR'il<t24 


2010 


FPRICE41448 


710 


F0TY0H'il461 


41o 


FBACK041473 


410 


F8LANK51502 


Uo 


FWTV5 1503 


4 3Y 


FITEMN51612 


8 lY 


FDtSCR51624 


2010 


FPRiCt!>lt.4b 


71o 


F0TYOH51661 


41o 


FBA0K0i.lo73 


410 


FBLANK61702 


no 


FUTY6 lb03 


4 3Y 


FlTtMN6l812 


8 lY 


FUtSCR61o24 


2010 


FPRICE61846 


710 


F(JTY1JH61861 


41G 


FBACK06ia73 


41G 


FBLANK71902 


no 


FQrY7 2003 


4 3Y 


FIT£MN720i2 


8 IN 


F0ESCR72024 


20ie 


FPR1CE72U48 


710 


F«TY0H72O61 


41U 


FBACK072073 


41G 


FBLANK62102 


110 


FTQTEX 2206 


lOlG 


FTAXtX 2218 


410 


FTOIST 2225 


91G 


FTAXST 2236 


41G 


FTOTLT 2243 


91G 


FTAXLT 2254 


41G 


FTOTAL 2262 


510 


FTaTM0N2269 


61G 


F8LANKA2302 


110 


FBLANK92402 


IIG 


FOUTOS 2404 


1250 


FCUSERft2417 


2050 


FITtMDR2439 


12 5G 


FCRbOOV2453 


1150 


/* 





UUANTITY 

ITEM NO 

utSCRIPTluN 

PRICE 

WTY UN HAND 

BACK UKDER 



Q 



EXCISE TAX 
STATE TAX 
LUCAL TAX 
TOTAL 



OUT UF STUCK 
CUSTuHER NOT UN FILE 
ITEM DROPPED 
CREDIT OVER 
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tZOREN I)I5PL4V FORMAT INFJKM4ri[)N 



EXECUTION TIME DATA - lUTPUT AREA FISMAT - END POSITIONS F]« rtPO PROGRAMS 



FIELD 


FIELD 


END 




FIELD 


FIELD 


END 


♦ 


FIELD 


FIELD 








LENGTH 


POSITUN 




NAME 


LENGTH 


POSITION 


* 


NAME 


LENGTH 


POSITION 


* 
















* 










OPCODE 


004 


ooot 




LENGTH 


004 


0003 


♦ 


TMNAME 


006 






»ZOREN 


006 


0020 





















QJ INPUT AREA FORMAT - END POSITIONS FOR RPG PROGRAMS 



FIELD 


FIELD 


END 




FIELD 


FIELD 


ENO 




FIELD 


FIELD 








LENGTH 


POSITION 




NAME 


LENGTH 


POSITION 




NAME 


LENGTH 


POSITION 































RTCODE 


004 


0004 




LENGTH 


004 


0008 




TMNAME 


006 


0014 






001 


0015 




CUSNO 


006 


0021 




SMAHE 


022 


0043 






022 


0065 




SAD0R2 


022 


0087 




SAD0R3 


022 






QTn 


004 


0113 




ITEMNl 


008 


0121 




0TY2 








ITEMN2 


008 


0133 




QrY3 


004 


0137 




ITEMN3 


008 


0145 






004 


0149 




ITEMN4 


008 


015 7 




0TV5 


004 








008 


0169 




0Ty6 


004 


0173 




ITEMN6 


008 


Old! 






004 


0185 




ITEMN7 


008 


0193 













LENGTH OF OUTPUT RECORD AREA REQUIRED IN OFF PROGRAM 
RPG •SUBR92* - 0020 OTHER - 0012 



LEIGTH OF INPUT RECORD AREA REOUIRED IN DFF PROGRAM 
RPG »SU6R92* - 0193 OTHER - 0185 



INFORMATION FOR USE DURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELD DESCRIPTOR TABLE IS 1150 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS 1146 
THE DECIMAL LENGTH OF THE INPUT TEXT IS 0240 



The generated display format appears as follows: 



lcosTw«R mmM cusToww mm smip to 



auftNiTT iTiH NS nescRiPTicN (wice an on hwo wkk okxk 



EXCISE T(W STftTE T«X LOCAL T»f TOT* 
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Example 2 - RPG II MRT Program Using the Display 
Format Facility 



When the initial format is placed on the screen, the cursor 
is positioned at line 2, position 3, 



This RPG II Multiple Requesting Terminal (IVIRT) program 
uses the Display Format Facility (DFF) to support the 3270 
terminals. Included in the example are a program descrip- 
tion, flowcharts, and RPG II coding. 

The terminal operator is requested to press the CLEAR key 
before entering the program name so that unwanted data is 
not received with the PROGRAM REQUEST. 



cusToreR f«jH»eR custoner mnE i ship to 



0W«1TT ITEH NO MSOdPTloM PRtCt «Tr ON HMffl 8R« OSOER 



The application program will request the display format (by 
name) and cause it to be sent to the 3270 screen. The 
method of formatting the initial display for the order entry 
program is explained in Example 1 — DFF Formatting 
Example. The Order Entry display format was generated 
previously and stored in the object library with the name of 
$ZOREN. 



EXCISE TAX STflTE TIW ; LOCW. TfiX TOT«. 



The terminal operator enters the customer number and 
presses ENTER. 



UsronER ftmim CUSTONER NWE i SHIP TO 



OUflNITT rtEM HO HESCRIPTtC^ PRICE UTT 1 



;T(irE TSK I UOCftL TftX 
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The program uses the number to retrieve the customer name, 
customer address and ship-to information from the custo- 
mer master file. 



All data fields that have been modified are received by the 
application program. The items are verified by comparing 
against the inventory master file. If items are verified and 
sufficient stock is on hand, the description and price are re- 
turned to the terminal. 



CUSTOMER NUMIER 



itoTIONftL SPORTINS CQ HSTIDNfiL SMRTINS CO 



im CHBRtEtON ST NE lOt H MftlN St 

lioCHESTER. mXH 55101 STEUftRrvllXE, HINH 



PRICE OTY OH WWO BnCK OROCR 



Customer name and address fields are output fields and can- 
not be altered, but the ship-to fields are output/input fields 
and can be changed by the operator if necessary. Next, the 
quantity and item number for each item are keyed in and 
ENTER is pressed. 



ftL SfOfiTINS CO NftTIONM. SPORTtHS CO 

0EPT aOI OEPT Tfe 

?a I CHRR1.ET0N ST NE 10^ N HftlN ST 

ROCHESTER, MINN SS-Wl STEMflRTVILU;, MINN 



oyBNITT ITEB l«l 



PRICE OTT ON mm WKK ORDER 



If an item is not found, the item number field is changed to 
high intensity and ITEM DROPPED is displayed at high in- 
tensity. 



CUSTOMER NUMWR CUSTOHER NAME SHIP TO 

1351.24 NftTIONflL SP0RT1N5 CO mTIOHM. SPQRTIMS CO 



7m CHftRLETON ST NE Am H WIH ST 

ROCHESTER. MINU KMSI STEUSRTVILLE, MIW 



QCWNITT ITEH HO 



2fc31<«i HOCKEY STtCK LEFT 



3i-152fc81 SKr SUPREME OLftSS 



SNOtl HOSILE «SCI 



EXCISE TAX STATE TAX LOCH. TAX 



If the item number is verified but there is insufficient stock 
on hand, the description, price, quantity on hand, and back 
ordered fields are displayed. OUT OF STOCK changes 
from nondisplay to high intensity and the item is entered 
in the back order file. 

Once the item information is displayed, the operator can 
verify the status of the order and make any changes desired. 
For example, when OUT OF STOCK is indicated, the quan- 
tity field could be rekeyed for the intensified items. 
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For ITEM DROPPED, enter zeros in the quantity field to 
delete the entry. (Any item can be deleted by entering 
zeros in its quantity field.) 

After all exceptions have been satisfied, ENTER is pressed. 
When the program recognizes that all items have been 
processed and there are no exceptions, it calculates all 
prices and taxes and verifies customer credit status. 



CUSTOMER NUMBER CUSTOMER NftME SHIP TO 

I35b2') NflTIONiU. SPORTING CO NflTIOmL SPORTINS CO 

BEPT 801 DEPT ri» 

rm CHflRLETON ST NE 40S N Ml^IN ST 

ROCHESTER, MINN 55101 STEUftRTVlLLE, MINN 



QUftNTITT ITEM NO DESCRIPTION 

3fa aWHb HOCKEY STICK LEFT 



00 : 1fa4l>5l7 



PRICE QTT ON HAND BBCK ORDER 



12 j 37152kiBt SKI SUPREME GLASS 15.25 



IhlbS SNOW MOBILE 455CI 87t,.50 



If the credit status is unacceptable, CREDIT OVER is dis- 
played at high intensity. The display now includes the 
total fields. 

The operator verifies the order including totals and credit. 
If acceptable, the PF1 key (enter order key) is pressed, and, 
if the credit check was good, the inventory file and customer 
account file are updated and the display is printed on the 
3286. If the credit check was not good, the files are not up- 
dated but the display, including the credit over field, is 
printed on the 3286. 

When the order has been completed and all files are updated, 
a new display format is sent to the terminal, ready for a 
new order. 

Any order may be canceled at any time by pressing the 
PA2 key (cancel order key). The program then displays 
a new display format on the terminal. 

The terminal may be released from the application program 
by pressing the PA1 key (release terminal key). The terminal 
would then be free to request another application and also 
may request the application program when desired by 
rekeying the program name. 



11.36 STME TAX 62.77 LOCAL T«X 82.77 TOTAL 1345.20 
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A2. 



( START j 







B2 



Operator requested to press CLEAR 
key before entering program 
name. No data expected with 
program request. 



Set up 

Accept Input 
operation 



C2 



Accept Input 
operation 



D2 



Return code 
checl< 



Cancel order 



Release terminal 




Set up to put 

initial format 



G2 



4 



Clear total 
prices for this 
terminal 



Release this 
terminal 



Output format 
to terminal 



2J3 
5H2 



H2 



© 




Yes 



Set up and execute 
Invite Input to 
terminal last 
processed 




H4 



No 



f End of job ] 



Note: Black numbers C>^ ) correspond to similar 
numbers on the RPG II coding sheets. 



Order Entry Program Flow (Part 1 of 5) 
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B3 



Check if ship-t 
and name and i 
dress are not blank! 



i-to 

dad- - 
blank] 



Order lEntry Program Flow (Part 2 of 5) 



Yes 



Save terminal 
name 



^ 




Yes 



D3 



No 



IsAaJ 



Find customer 
number in 
customer file 




E4 



Indicate error 
on display 



F3 



Yes 



Save customer 
name and address 
by terminal name 



G3 



Build Put Override 
record to display 
customer name and 
address, ship to 
name and address 
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A3 



Initialize 

exception 

indicator 



B3 



Item number 
1 




Find item number 
in inventory file 



Set up to move 
price and descrip- 
tion to display 




F4 



Found in ^n^ No 
inventory file 



Indicate dropped 
item exception 



G4 



Process item 
number 



Identify item 
number in format 
to intensify 



$ 



Order Entry Program Flow (Part 3 of 5) 
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Increment to 
process next item 




Indicate short 
quantity exception 




Process item 
quantity 



Order Entry Program Flow (Part 4 of 5) 
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A2 



Calculate taxes 
and totals 




Put Override to dis- 
play item descrip- 
tion, price, and if 
necessary, quantity 
on hand and back- 
order, and exception 
messages 




No 



Yes 



B4 



Indicate credit 
check to be 
intensified in 
format 




Update customer 
account 



F4 



Copy display 
format to 
printer 



Yes 



^ 




$ 



Order Entry Program Flow (Part 5 of 5) 
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IBM 



IntflrnBtionsI Biis'ness Machine Corporation 



RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number. 


ProjramTTiBr Date 


Punch 

















75 76 77 78 79 80 































Control Card Specifications 
















H 


Core 
Compile 

7 8 S 


1 
10 


i 

1 

11 


Cora 
Size to 
Execute 

12 13 14 


IS 


f 

1 

g 

LI. 

IB 


17 t8 19 20 


21 


1 
S 

s 

a 

22 


Number 
Of Print 
Positions 

23 24 25 


S 

S 
26 


IDodel 20 


} 

37 


Mode 
20 


=5 

40 


§ 

E 

CL. 

41 


&> 
o 

1 
1 

42 


g 
43 


3 

1 

44 


1 
6 

45 


46 


i 

3 
1 

47 


O 

1 

4fl 


.E 
4R 


a 

E 
O 

J 

i 

5 

Hfl 


g 
1 

51 


Refer t(i the specific System Reference Library manual for actuiil entries. 
52 53 64 55 56 57 58 59 60 61 62 63 34 65 GG G7 6B 69 70 71 72 73 74 






Address 
to Start 

22 28 29 30 


1 

31 


1 

o 
S 
1 

32 


1 
33 


34' 


2 
35 


6 

s 

3B 


t 

1 

33 


1 

39 


Line 
3 4 6 


1 

E 

£ 

6 


o|,| 


H 




□ 




1 1 






1 1 1 
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1 1 1 












































IN 1 1 Mil ! Mlllll I'll 1 1 



File Description Specification 





c 






















File Type 




Mode o( Processing 


.i 

1 

39 


























T 


T 


























File Addition/Unordered 


■ 


Filename 

7 a 9 10 11 12 t3 14 


!5 




File Designation 


s 

28 


Length of Key Field or 


Device 

40 41 42 43 44 45 46 


Symbolic 1 1^"™°'. 


Extent Exit 
for DAM 


6fi 


Number of Tracks 


Line 
3 4 6 


1 

1 
6 


D 

1 

IS 




End of File 


20 30 






forCylindarOi/erflowi 


UJ 


— 






Record Address Type 


67 


Number of Extents 


§ 




File Format 

1 ' ' 


5£ 

1 

31 




Organization 


Core Index 


68 69 




Tape 
Rowind 


i 

19 


Block 
Length 

20 21 22 23 


Record 
Length 

24 2B 26 27 


1 

33 


Overflow Indicator 


z 

1 

7(! 


File 
Condition 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 




Continuation Llnas 


71 72 73 74 


, K Option 
47 48 49 50 51 52 B3 54 BB 56 67 58 59 


Entry 
60 61 62 63 64 65 
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RPG EXTENSION AND LINE COUNTER SPECIFICATIONS 



Intarnstlonal Builnew Msdiine Corporstion 



Program 


Punching 
Insuuction 


Graphic 
















Card Electfo Number 


PrOflrammer Date 


Puni^ 
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•^»'/9 rzr,L,i„nloileffi 





























































Extension Specifications 




























































F 


Record Sequence of Hie Cfialning File 


To Filename 

19 20 21 22 23 24 25 28 


Table or 
Array Name 

27 28 29 30 31 32 


Number 

of 

Entries 

Per 

Record 

33 34 35 


Number 
of 

Entries 
Per Table 
or Array 

36 37 38 30 


Length 

of 

Entry 

40 41 42 


1 

43 


1 

e 
1 

44 


1 

45 


Table or 
Array Name 
{Alternating 
Format! 

46 47 48 49 50 51 


Length 

of 

Entry 

52 53 54 


!>5 


1 
1 
1 
1 

66 


1 

57 


Comments 

58 59 60 61 62 63 64 65 66 67 66 69 70 71 72 73 74 






7 a 




Line 
3 4 5 


1 
8 




P 10 


From Filename 

11 13 13 14 16 16 17 18 
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Per Table 



36 37 38 39 
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Array Name 

(Alternating 
FormatJ 



46 47 48 49 SO SI 
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of 
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CAI 

INT 
ONH 
BoA 



7 
1 

i 

h 

1 
1 
7 
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IoIrIdIeInIt] 



■p p Record tdentifitation Codes c;„m 
1 ^ Fifid 1 nratinn '^'^'" 


'"■ "5 1 3 :i _ r indicators 


Lir>e Filename | z |S g | Field Name ^ »| ^ 

S. S'r:o-S ^. w i-.S £ Su-iTo Zero 
H s "^ ^ Position _ 1 Position -. g Position _ S i; ^ From To -^ -eg'" Pius Minus or 

^ OR 15^ 1^6 ^SS ^Ss^t 1 6 s6 i! 

AND 
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Ml 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 43 49 50 51 52 53 54 66 56 57 53 59 60 61 62 63 S4 65 66 67 68 69 70 71 72 73 74 


<" iX RECEJy/E DATA F^OM THE TEf^'lMAL 


2 1)<. 


3 iTERMIN SA i5 ],§ C| 


°' ^K PAi PRESSEC OR RELEASE rEKMMAL REQUESt 


"= I OR 15. I? c> 


"^ iX PAZ PRESSEC (JF lANCEL ORDER 


7 I J 


08 1 BB ^i 15 C 


09 1 OR ^2 15 tl 


" iX ENTER KEY OR PFL KEY DEPfiESSEC 


"_ I 1 Z^RTNCOD 


"I "? 14 TMANE 


■^ I 15 i? AID 


"I lio ZijiCUSNO 51 


'= I 21 in SNAKE 


■1 I "jqf G5 SADtiRl 
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»' I ii^ 115 QTV.l 
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■>:L I „ 13q 13? ^fy.a 


""I 13? 145 ITnLI 


07 1 mfc m^ 5XY s 
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«' I 15? iti 15TY,| 


'I L«i2 Itl IT^N,5 


'_ I n^ 173 5TY»& 


'^ 1 nn i?i iTfLfi 


" I 1^2 i?5 G|TY, 7 


'^ I l)f6 113 ITMK.l 
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Program 
Identification I 



■iTn°'i9 



, |o1r]d|e|n|t| 



^ „. Indicators Result Field j^^'Z 


"^ 1 1 ' " Arithmetic 




, S g , , , , „^ K Compare 


Lin. £:il- 1^=™ Leilgtl, ^ ^,j.2|,<2|,.2 


p j; *",„„„ . at Lookup(Factor 2Hs 


i£t5Szzz QX High Low Equal 
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 38 29 30 31 32 33 34 36 36 37 38 S9 40 41 42 43 44 45 46 47 48 49 50 B1 62 53 54 55 56 B7 SS 69 W 61 62 63 64 65 66 67 63 69 70 71 72 73 74 


1 cjK BEFIME A 'BLANK' FIELD 


"^ c N22 N0\/£ ' ' BLANKC tt 


3 c SETOlJ Zl 


4 cK RESET ALL INICATORS FROM PREVIOUS CYCLE 


0^ seioF _ J3 


6 c SETOF L^Lili 


7 c SETOF 7p^?l 


oa c SETQF 8283^5 


c SETOF 86?7?« 


' c SETOF f ?n 


" '"fH^ma CHECK RETURh CoDE 


- ^ c EXSP RThCHK 


'3 c 9« SOTO INVITE REREAD IF ERRoR 


4 c C)^ gOTO END OR SHUT COIaK 


'= '=UK»<!^«- 


° <=$^i4» FLND CUT aHICH TEgMIVAL THIS IS 


' ' c MOVE I H ii INIT INDEX 


'1 <: PL. 5 LOKUPTNK.M 2^F1ND MA^^E 


' ojOKXX ^ ^ 


20 c)«»^K^ \F blAK'E NOT FQOMDj. FlIJD -I RSI GLAl^K lEMRV 


Sxi(»*><)e AMD IMSERT THIS leB»/liMAt NAME 


M « ' LoliuPT^J^'.U 2i. 


MOVE eL.$ ri^i^.iy 


c^^^)()( St^CE C^L^ 6 TERMINALS AFE IN THE SYSTEM (N ENTRY 


o)imm HitX ALh/YS EXIST X ± ± 
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p-iD-'i? Sl.,.n lo|R|D|E|N?r] 



^ „. ^""-"^^'^'^ Res.1, Field ^:;^Z 


rS 1 1 n Arithmetic 




« > Z „. , ., i? '^ Compare 


Lin, e^i ''"""' "-Uliulh - .i,5.j|,^2|,.2 


P S ". „ „ _ -3 » LDDku[.(l=actor21i! 


iJSjZZZ QI Hiah Low Eqo.l 
3 4 B 6 7 3 9 10 n 12 13 14 15 16 17 IB 19 20 21 22 23 24 25 26 27 28 29 30 3t 32 33 34 35 36 37 38 39 40 41 42 43 44 4E 46 47 48 49 50 51 52 53 54 55 !i6 57 59 59 60 61 G2 63 64 65 66 67 66 69 70 71 72 73 74 


1 cH HAKOLE REQUEST To CAKCEL THE ORDER 


"^ c5( __ _ „ 


03 c <)^ SOTO CANCEL CLEAP TOT^L 


4 cK Ai^C SErJH h^E^ FORMAT TO TEfiSlKAl 


oe cM :^ x ^. ^ M)^ K )( ^ ^ Ci ^n ¥ K X i J! k H > H iia Mi 


6 C ^ 


oy c^ flANDLE REQUES-T TQ RELEASE TER»«INAL 


a c 1499 SOTO CONTi 


o« cX IF KOT RELEASE D0l4Tl NUE 


' c RE LEAS TA^ 


<< c SETOK q? RELSE TEFNINAL 


' 2 c Excpr 


13 cK JF THE Following compape operation 


14 cgr WERE replaced kl TH TUG CO>^VEKTED INSTRUCTION, THE 


1= c*^ PROSRAI/ IJOOLD EE Ps MEVER ENDING PRb&RA8>' • 


1 = c MOVE PL, 3 OJTSn 2j! 1 F NO OutSTAND- 


'^ c ^^ COIWPOUTSII LMtG INVITES. E<j 


1 » c JOTC ENE 


'« cK }( K- )( K X ^ X_->* X ■><•>«■)< X )« X X « J< i( N M )( )^ Ik H )t k )k 


'0 c)( <ff 44 cdMF OUTSl 1 LR 5f 


_.._£< J« Jl 5<_i« » 1^ J« M < S ilji X H ji K )< a »<)<><)« ?( K K X ^ i<- 


0' c - TCOKITI rflfe 


0^ cx K >« )« J«5 >* X H H >< )« ><l H >^ H X K H K^ X » >« « 


"' <:* IE THIS 'S A PRb&RAM RESUEST, SEND THE X- 


"' ^t FORMAT TO THE TERMINAL. ALSO SEND INITIAL K 


0^ <:)( FOPNAI FOR CLEM3 K£V AMD OMIOEMTIFIED Jt 


cX IMPUT RECORD ' » 


07 c>^ K 


8 c fjqj GOTO C0NT2 


o» c^ CANCEL ORCER Al«E BESET F}R MEM ORCEP 


1 c RESET TAS 


■ 1 c CANCEL FAG 


1^ c MOVE '5' CROKjfi REINIT CReoiT 


'3 c Z-AtDji TPR.lQ CLEAR TcT PRICE 


'4 c SEtoN 2a« 


'= <: SETOF ^liiit 


' « c M;q fiOTo INVITE 


1' c \f JOTO RELEAS IF SHUTDOWN 


' « c)( RELSE TERVIWAL 


1 9 C 


2 C 


C 


c 


c 


c 1 


c 
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|o|r|p|£|n|t| 



^ Indicators 


Result Field 


nesulting 

Indicators 


1 ° — 


Factor 1 Operation Factor 2 

Name Le 

D 21 22 23 34 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 43 49 


« Arithnmtic 


.5 £ Plus |Minusj Zero Cnrnmcntr 


all '"" *"' 

Lin. i ,^- 






o s Compare 


«l" ^ ■5-1>2|l<2|l=2 


E 6 S 
34B6 78 9 10 


J 

11 12 13 


14 IB IB 17 IB 19 3 


1 i Lookup(Factor 1\\% 


a X High Low Equal 
El 52 53 54 BB 56 57 58 59 60 61 62 63 64 6b 66 67 68 69 70 71 72 73 74 


1 C 


K >* 


COI 


OTZ TAS 




"^ t:* ^ 


•K •>! « 


3 C)(. 


Z^ 


£CK IE 


CUSTOt^Eli ^U^££R RA? e£EK VERM 


= IED 


04 Cj( 










5 C 




BL/ 


\lllKC COI^P SKA^E 

GOTO PROCESS 


8i 


OS c N^ 


1 




7 C}^ 


IP 


SHtP • 


ro MANE IS NOT BLAKHj CUSTC^'Efl 


NUNCER 


0» CX 


HA 


S BEEN 


VERJFIEC 




09 CK 










1 cjK 


\/E 


RIPY C» 


iSrOM£R MUI^BER 




1 1 c 






1 2 C 




TONII\» 


\ 




' 3 cK 1 


SE 


DR %Z IF MU^EER NOT CORR£CT 




,. c^ 


SA 


vE :us- 


ro»/eRlNA><e. address anc wumber 




- <= N| 


2 




MOVE :uaiwe cnn.m 




. B C Mf 


E 


- 


N10VE CADDRi CAi.M 

m6v6 caddi|2 caz'm 




- ' <: N£ 


2 




- 8 C Wi 


Z 




KOVE CA00li3 CA3^^ 




■» <> Nl 


■L 




Move cnO>/8 cs^n 




11 cX 










' ' cN e 


\TH 


ER A ^ 


(CRgBlT OKI OR A Z CM6T CK^ IJ 


5 MOVED lUTO CROK.N 


, 3 CJ^. 






-!' 


J 


1 4 C 






► 




1 6 C 






|0T0 INVITE 




1 C 




PR( 


jcess tag 




2 C ^. 


ST 


ART PRC 


^CESStKl^ ITE»I NUI^BERS AND QUAN- 


riTY 


03 C5< 










04 C^ 


RE 


INITIAI 


TIZE EXCEPTION LOGIC FLAGS <0M3 


poiwreR 


5 C ^ 


TO 


^L ine r 


JUMBER TO PROCESS 

SETOF 
IftT FOUWC 




6 C)| 




7 C 






85?5 


8 C J( 


«9 


-ITEK 




9 CX 


«& 


piAlK 


>RDER ITEIW 

»'0\;£ 1 1 




1 c 






\i 


' ' cX 










1 2 C 






yo\/E •■ ' INT 


BLANK OUT TYPE 


1 3 C 






yovE •• ' own 


BLANK OUT 


1 4 C 






KOVe I > BoA 


OUTPUT 


1 E C 






Z-ADD^^^.fi| PR 


ARRAYS 


1 6 C 






MOVE BLANKC DSC 




1 7 C 






SETO^ 


13 


1 8 C 










1 9 C 










2 C 










C 










c 










c 










c 






- - 




c 







ZZ U 0£ 69 S9 £9 M fid W C9 Ze 10 09 6 



3 £Q 9S SS K GS ZS IS OS G^ M Afr fitr Qf » Ct ef l> Ot- eC BC /.C 9C QC K £t ZC kC OC BZ SZ £Z 9Z SZ Ml CZ ZZ IZ OZ 6l \ 



I SI fl £L Zl LI 01 6 8 £ 9 Q fr £ Z 



3270 Display Format Facility (DFF) 8-85 



RPG CALCULATION SPECIFICATIONS 



IBM ,„„„.„„„., 


iJlinEii Madiine Corporslion 






















Progrsm 


Pijnching 

Initruction 


Graphic 
















Card Electro Number 


Progrsmmar 


JDate 


Punch 

















75 76 77 78 79 80 



"wIlo-'IS 



, |0|R|D|E|Ki]Ti 



C 3 '"''"'"" """"'•°"' IS^i™ 


... ■■, ..— 1 eb _ 1 1 a, Atiihmetic 


■tP A"'' A"'^ Facror 1 Hpnration Farmr ? g £ Plus [Minus] Zero Commcnu 


£ S 5 8 K Compare 


Lin. ^^^- Name Leiiylh - ,^,^2|l<2|l=2 


■ 1 ^;;:- S R R I ;LaokupiFactar21is 


u-O-izZZ QlHigh Lnw Equal 
3 4 B 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 :7 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 17 48 49 SO 51 62 53 M 55 53 57 58 59 60 61 62 63 64 6S 66 6T 6B 69 70 71 72 73 74 


<" cKx » BEQiN Loop To process iteks 


° 2 c LOOP TAG 


"' =<X IF IT6N NOMBEB MOT SIVEM (BLANK, gg oK), £«C OF PROCESSING 


»• on> OF IfE^iS FaR THIS TERMINAL. ' 


"^ <= ' 'CONE IT^^^.I ?J 


°« <: 82 SOTO ENDLOP 


0' cX>( 


■>» c^J( CHECK IF IT£^ QUAWTlTlf IS SlWEN 


"' " WW I^^W l'^''"'^! ' IWal M 11] MM 


"> =»«}( IF NOT SlVEk, SKIP PROCeSSiKiq OF JHIS J TE^' 


' ' <= T2I 50T0 Mxfn#- 


'» cX}( FlhO THE ^TE^ IM IfJVEMTORY FILE 


, 3 c i i 


- c r r — 






' • <: i< SET ON «9 


" -"^^^-JWDllATCfi 25 SET OW IF IT£^' IS NCT FOUND IN THE; FILE 


1'," n Move '2' IWT, 1 MAKE iftVi 


1' " il ;0TO MXflTM HIBU 1 NTENSUy 


"• c)( ITE' FQUHD NOW KdVE MICE AND DESCRIPTION fo 


02 c^ (UTPOT ARRAY EUS^ENTS FOR THE pOT Oy/eRRlDE 


3 c J 


4 C > 


"= c »1dv£ i> vcsc bsc.i 


" ' c (^O^e UVPR PR^l 


7 c ,' 


8 c ; 


-_=L ._.. __^ " ""■""" "^ """" " ■: 


'V.=J<L._ JO5 CHECK IF (QUANTITY ORDEPEC EXCEEDS RO/MTlTY ON HaSO 


"._M ^_ _ 


'v_£_ ___ _JM\/qT5f ccKP 9fy 1 79 


^-^ 1<» _„ SETON 86 BACK ORDER 


'V ■= 79 „.. So:orBACK OR SET UP BACK ORD 


' s cX 


1 6 C 


1 7 C \ 


1 8 C 


1 9 C 


2 C 


C 


C 


C 


C 


Ci li 0£ 69 89 « 99 99 W e9 29 19 09 69 M £3 M 93 K D9 Z9 IS 09 et Bt iV Qf Sf M- CV ZV t* 0*' 6C BC iE 9C gc K EC 3C l€ OE K 82 i2 9E 9Z W C2 ZC IE 02 6!. 81 il 9t 91 frl El. Zl 11 01 fl 9 t 9 9 » £ Z L 



8-86 



IBM ... 



RPG CALCULATION SPECIFICATIONS 



lionol Businass Machinn Carfi 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer Date 


Punch 

















1 2 75 76 77 7B 79 80 

p.^0i]o.i9 !:r,L,on ic^R|p|E|N]ti 




ex 



3 
3s 

11 

p « 



c>t 



c»( 



CJt 



<^K 



1 r 



'^>i: 



^2 



n 



ZL \L at m 89 LQ i 



PR|\/ 



CREATE 



RID 



PDATE 



HgCK 



ir 



PUSLY 



ALI 



^ 



PDA 



18 19 20 21 22 23 24 25 26 27 



SETU 



BACKOR 



lim^ 



TE 



BAt 



MXT 



IMIVIEIW TORY 



KA 



TN 



3eiL 



»IVENT0EY 



KORDER 



N 



LOS 



CoMP 



COMP 



28 29 30 31 32 






MO 



IXCPT 



£TOP 



SPTP 



TAS 



TAS 



Add 



m 



ixcPi 



5ET0F 



RPER 
trlflf^L 



op 



MOVE 



M 



OWP 
TO 



BAC 



33 34 35 36 37 38 39 40 41 42 



i/£ 



CROK 
IP 



NXT 



ovE 



TH 



K 



NI/BOA 



LOOP 



iQlgDE 

I 



RRI 



NVONH 



PR> 
M 



TcjI 

<1E 



FQB„IHi 



IM 



U 



^ 



PE 



43 44 45 46 47 48 



CALCULATED 



EE 



To 



OUH 



BOA 



TEWS 



TERN 



ENTERED 



TEM 



OR 



mi 



Resulting 
Indicators 



Arithmetic 
Plus [Minus! Zero 



^2|l =2 



Looltup(Factor 2)is 



High 
54 55 



42 



Low 
66 57 



NO 



12 



KORE 



M 



Equal 
5S 59 



blO 



) 61 g2 63 64 65 66 67 68 69 70 71 72 73 74 



ON 



BAC 



RK 



) £9 CD 19 09 63 89 i9 99 39 W Efl Ifl 19 03 61- 8P if 91- at W- efr Zt It Of 66 8C iC 9E 9E t« EG 2£ IE OE 6S K £Z 92 92 K EZ ZZ IZ 02 6t 81 Li 31 SI fr( El 21 



TO 



HAND 



ORDER 



DO 



OF 



ANOUMT 



mi 



lotee^ggtGzt 



3270 Display Format Facility (DFF) 8-87 



RPG CALCULATION SPECIFICATIONS 



IISJVI \n^ 


national Bujin 


iiMachir 
























Program 


Punching 

Instruction 


Graphic 
















Card Electro Number 


Programnier 






1 Date 


Punch 

















p.„ I 2U<|9 



Program 
Identification 



75 76 77 78 79 80 

blR|D|g|N[r| 



c 




Indicators 






Operation 

28 27 :« 29 30 31 32 3 


Factor 2 

3 34 3B 36 37 38 39 40 41 4 


Result Field 


Resulting 
Indicators 










, id 


1 L .1 


Factor 1 

7 18 19 20 21 22 23 24 2 


Name Length '^ . 

1: 
s - 

Q U 
2 43 44 45 46 47 4B 4D 5D 51 52 5 


Arith malic 


Comments 
1 

3 60 61 62 63 64 65 66 67 68 69 70 71 7Z 73 74 


3 4 


sa 

6 7 


- Plus |Minus| Zert 


< 






i Compire 


?1>2|l<7h = 


8 9 10 


5 

z 
n 12 13 


1 

14 15 


16 t 


- Lool<up(Fa.:tor2) 


: Hiyh Lov 

3 54 55 66 5 


Equ 
7 &3 S 


1 


"Yi 




FIN 


IS 


HE 


.D 


PRoCEf 
DE IF 1 
LATIOMJ 


sSI NG THE 
roTALS^ 1 


E ITEKS. 
FAKES AKD 


CREDIT 
IDlTlpNS 


SHni 
EX 


JLD E 

IS! 


JE 


Cd 


ac 






2 


cK 




KlOk 


D 
CA 


EC 
L( 


11 


ULAl 


EC 


3 


<=)« 




)J0 


> IF EXCi 
TAS 

GQTG 1 

5 And TCI 


EPTION Cp!» 

NflTE 
-ALS AND 






4 


c 






L_ 




E 


UOLOP 








5 


c 


t 


9 






--- 


— 


6 


CO 


R 9 


& 






















7 


c|< 










IREOnr 


- 












8 


cH 




k:AL 


cu 


U 


\7 


E rAXEi 


9 


c 






EXCPT 
SEfoF 


















1 


c 












Vil 


iCflTOR $1 
. b\AS CAK 
^E lOTAL 


15 0^ 


PRE» 


'■I 












1 1 


c 




















1 2 


cX 




CRE 


Dl 


T 


H 


or OKA> 


^ IF IND 
A TOTM 
}R SAK Tl 
»S AT Ti 


;li 


f 








1 3 


•=)< 




IF 


PF 


L 


P 


RESSED 
OPEP^Tt 
TOTAL 


:ULA1GC 


1 4 


C'M 




(SO 


T 


H( 


4£ 


^T LEAST 


0M< 


:g At 


ID 


T< 


\ E 


RSUR 


E 


1 5 


c> 




THA 


r 


Tl 


(E TERNIKl 


ri TO BE 
)RDER. 
TPR^M 


COF 


MEO 


TC 


) T 
P! 


rHE 


PRl 


MTER 


1 e 


cK 




AMD 


c 


R( 


:0 


IT IS ( 


SKAf. Fl> 


aiSH THE 
"QTREC 

NVITE 


1 7 


c 


1 


3 










WOVE ■ 


^TA 


l mo 

lOUS 


T CALC 


1 8 


c 





i 











Goto J 


r 9 


CO 


R 7 


3 












2 


cH 


























cX 


• F 


INA 


LI 


Zl 


: 


THE ORI 


»EP V\T\i 


EXCEPT)0» 

•PEWOENT 

b 

LAfJK 
SLANK 


J OUTPUT 
)ATA 1 

rpR 

CROKjN 

cm', I 

CA2.M 


IF 


PFi 


0} 


» 








1 


c 


9 


2 








IZE TEI 


EXCPT 








2 


c 










»L 


SETOF 
2MINAL D( 






3 


<=)< 


R 


EIN 


IT 


III 












4 


c 














2-IdPS 

WOVE i 
f'Ol/E ( 

koveI 


- 




--- 




— 




- - - 


5 


c 














6 


c 


























7 


c 

























S 


c 














-- 












9 


c 














m^B 


JLANK 
?ELEAS 


CA3,N 

C»ti 

iPl^jN 






- 








1 


c 














MOVE 
?-ADC 


1 1 


c 


























1 2 


c 














SETOF 
SOTO f 


pz4i 


L. 


S 


<UT 


OkN 


REU TEB 


1 3 


c 


9 


9 










1 4 


c 














SOTO F 
FAG 


^ESET 


^- 






1 ; 


>su 


E NE 


h r-ORHl 


1 5 


c 










1 


N^\iE 
















1 e 


c 














SETOM 


- - 







13 


---- 


\J 


JVI 


IE 





1 7 


c 










E 


MD 


FAS _ 


1 8 
1 9 


c 


S 


5 












- 







CO 


R i 


I, 










SETOfc 


2 


c 




















c 














- - --- - 




e: z£ i-c: DC ez 3£ £C 9£ 


gc « cc 2 


Z IZ 02 61 : 














c 


















— 










c 


















--- 




c 


















ZL u 


c 

c 69 as 


L\ M SB 


M £9 Zfl 


10 09 


(K fl 


n i>i 


9S gg H C9 eg tg 


S 6t flfr i^ 9t St- ♦+ Cfr Z 


b Ifr Qfr 6C SC £[! 9C Se K E 


1 ^1 ! 


I 31 « 


1 ei zi 


tL 01 e 8 


£ g g » c £ 1- 



i 



8-88 



RPG CALCULATION SPECIFICATIONS 



IBM 



Innrnarlonsl Businoss Machine Corporation 



Program 


Purtching 
Instruction 


Graphic 
















Card Electro Number 


Programmer [ Date 


Punch 

















75 7B 77 78 79 80 



--Qlo^ig SLion lolRlPlElNTn 





r 










Indicators 


















































Result Field 


1 

83 


Resulting 
Indicators 
































^ 


IS" 
5 5 

7 8 


1 1 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

7B 29 30 31 32 


Factor 2 
33 34 35 36 37 36 39 40 41 42 


Name 

43 44 45 46 47 48 


Length 

49 50 51 


1 

1 
52 


Arithmetic 


Comments 

BO 61 62 63 84 65 ee 67 68 69 70 71 72 73 74 


Una 
3 4 5 


1 

s. 


Plus iMinusI Zero 


1 




Compare 






1>2|1 <2|1 -2 


1 


10 


11 


1 

12 


13 


14 


z 
15 


16 


17 


Lookup(Factor 2)ls 


High 

54 55 


Low 
56 57 


Equal 
58 59 





1 




c 








































- 








































- 


- 
























- 


- 










„.-, 





















2 




c 


H: 




























































E 





























3 




c 


)k 






















s 


U 


P 


P 





U 


T 


1 


M 


E 


1 


rc 




C 


H 


EdK 




R 


T 


UF^Ki 




c 


ode 












- 

























4 




c 


S 


R 




















R 


T 


N 


C 


H 


K 










ei 


ES 


S 


R 

































































6 




c 


s 


R 




<? 


i 


































SI 


:T 


o 


M 












D 






















- 








11- 




^9SN 


U 


E 
T 


R 
D 


POP 
OkltJ 
Alt. 


P 


% 











6 




c 


s 


R 




1 


Z 














<l> 


L| 






- 


- 


- 




C( 


jy 


P 




RTMck 

















7 




c 


If 


























































































- 


_ 




fRlulN 


C 





8 




c 


s 


R 




^ 


9 


































Si 


sT 





N 






























- 




- 










90 















9 




c 


s 


R 








































SI 


ET 





F 






























9 


J. 


«J 


2 












- 


- 


1 







c 


s 


R 


































E 


4D 


5 


R 
































































1 


1 




c 




















































































- 


- 


























1 


2 




c 









































































































RPG OUTPUT SPECIFICATIONS 



[oBl Intern 


BtlonsI Businau Machin 


eCo.po.« 


lion 






















Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Proflrammer 






Date 


Punt* 

















75 76 77 78 79 80 



Pa=e^o,/9 SrL.lo JO|R|P|E|N|Ti 



Output I ndicators 



And And 



32 33 34 35 36 37 




40 41 42 43 



Commas 


Zero Balances 
to Print 


NoSivi 


CR 


- 


X - Remove 
Plus Sign 

Y - Data 

Field Edit 

Z = Zero 

Suppress 


Yes 
Yes 
No 
No 


Yes 
No 
Yes 
No 


1 
2 
3 

4 


A 

C 
D 


J 

K 

L 
M 



Constant or Edit Word 



I 46 47 48 49 50 51 52 53 54 55 56 57 G6 59 60 61 62 63 64 65 66 67 GS 69 70 



71 72 73 74 



lM\/iNTRYE 



CUSTWAMEE 



HO 



OKIO 



LDORDRD 



RDE 



TH 



POfeT 



N73 



n 



iHii 



n 



it 



iimi, 



m 



TH 



f<; 



ISTC||>»ER 



ACCOUNT 



Zi U Oi (» 89 £9 9B S9 W e9 a 19 09 69 8S i9 99 Sa W GS 39 19 09 6fr » it 9*- ZP ^ tV Z^ n Ofr 66 BE iC BE SE tE £E ZE IE OE 62 BZ £Z 9S 92 W EC K IZ M 61 81 il 91 91 t-l Et CI II 01 6 8 L 9 9 V E Z I 



3270 Display Format Facility (DFF) 8-89 



IBM, 



RPG 



OUTPUT 



SPECIFICATIONS 



ss Machine Corporaiion 



75 76 77 78 79 80 



p-LiL?J"<l9 lri„o„|0|R|D|E|N|T| 




8-90 



RPG 



OUTPUT 



SPECIFICATIONS 





e Corporalim 






















Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Proorammar 


1 Date 


Punch 

















12 75 76 77 78 79 80 



)(■ 



7 8 9 10 11 12 13 



ED 



»^HOLE 



MOO 



^RRAY 



DSC 



mi 



I 



V^LUE 



FY 



LEMENT 



CODE 



APPEAR 



H\ 



TV 



ELEMjENT 



ENOUGH 



UL 



LL 
F 



BE 



BE 



OF 



Output Indicators 



MO 



CPNTAI 



BLAKR 



eiAl 



TBHHL 



BL4N 
STO 



FOUND 



OR 



Cf5 



PRl 

Dteci 



OF 



k |E_ENO 



THIS 



32 33 34 35 3g 37 



MT 

F 

Z 



DSC 



kAL 



QNH 



mo 



BOA 



Ji 
MOT 
OR 



6gh 

bRpEg 



ano 




PO 



uu 



m: 

OUND 



8 



AUA 



i9 

n 

62 

NOTI 






I 



IT 



I^^ 



1^4 



ly 



Constant or Edit Word 



45 46 47 48 49 50 51 S 2 63 54 55 56 57 58 59 GO 61 62 63 64 65 66 67 68 69 70 



11 



ITJO 



Co.™, 


Zero Balances 
to Print 


No Sign 


CR 


- 


X = 


Remove 


Yes 


Yes 


1 


A 


.1 


Y = 


Date 


Yes 


No 


2 


B 


K 




Field Edit 


No 


Yes 


3 


C 


1 


Z - 


Zero 


No 


No 


4 


D 


M 




Suppress 



DESC 



FOUKIO 



PR 



QTYOHl 



y^ 



UBLE 






H 



TEM 



ST 

TYl 



'y 



SAC 



el 



ocK 



Ri 



EI 



k^l 



OR 



FOUKO 



OR 



EKTERED 



KTEMSl 



NVENTORY 



ACIUAL 



iLlNK 



TY 



AHm 



^m\jnT 



k BACfe 



OUT 



LE 



MT 



IF 

0RD|£|^, 



Zi. l£ 0£ 69 99 £9 99 Sa K C9 Z9 tfl ( 



) fQ 99 99 ta £3 29 19 09 6fr 8f ifr gt S* »« £fr gv If Ofr 6C 86 tC 9e SE tC EC CE l£ OE 62 8C tZ 92 9E K ce K IZ 02 61 8L il 91 SI frt Et Zl II 01 6 8 £ 9 9 fr E E 



3270 Display Format Facility (DFF) 8-91 



RPG 



OUTPUT 



SPECIFICATIONS 



IBM, 



ss Machine Corpora Ik 



Program 


Punching 

Instruction 


Graphic 
















Card Electro Number 


Programmer Dale 


Punch 












_j 





P.9=[|jTjof|5 



Program 
Identificalic 



75 76 77 78 79 80 

,|0|R|P|E|M7f] 



o 



9 10 11 12 13 



Output Indicators 



And And 



32 33 34 35 36 37 



32^ 



End 
Positon 



Output 
Record 



40 41 42 43 



Constant or Edit Word 



45 46 47 48 49 50 51 52 S3 54 55 Bt S7 SB 59 60 Gt G2 63 64 65 66 67 6 



Commas 


Zero Balances 
to Print 


IMo Sign 


CR 


- 


X = Remove 
Plus Sign 

Y = Date 

Field Edit 

Z = Zero 

Suppress 


Yes 
Yes 
No 

No 


Yes 
No 
Yes 
No 


1 
2 

3 
4 


A 
B 
C 
D 


J 
K 
L 
M 



r|£Mi^2 



) 71 72 73 74 



o 



PROC 



TH£ 



MERE 



PO 



ess 



SECOKIC 



LLftM 



ClA|L|C|ULATI^C> 



TEM 



KIT 



i3 



\ 



LDSl 

Ma 



LL 



EXCEPT 



MS!) 



8S 









mi 






83 



roT 



1 
ec 



TAxex 



TAXST 



WLT 



OK 



r/ 



ill 



Ofjfl 



ISE 



iyoK2 



51] 

m 
m 

NT 
NDI 

in 

fc32 
3? 



TEN 



M 



NUY 






TMSl 



M 



<rrte 



K07 



Sf 



TAX 



TOTAL 



LT 

tiwokT' 



Ak£i TAXES 



3i l£ Oi 69 B9 i9 99 39 W E9 £9 19 09 69 83 £3 99 S9 W E9 2S IS 09 ev 8t i,f 9tr 3t » Et- £V If Of 6e BE iS 9e SE tE EE ZE IE OC K 8C iS 9S SC t-^ CE CE iZ 03 61 E 



: 51 fl ei. £1 II 01 6 



£ 9 9 f E C I 



8-92 



IBM 



RPG 



OUTPUT 



SPECIFICATIONS 



Program 


Punching 
InsirucTion 


Graphic 
















Card Electro Number 


Programmer Dace 


Punch 

















■'|i|e]oti9 



Program 

Identification 



75 76 77 78 79 I 

|0|R|D|e|nTt1 



THE 



THE 



SP 



ABOV/lE 

LAS 

FOLLjOMl 



ZL IL 01 69 B9 i9 99 S9 W £9 29 I 



Fl 



NG 



ELC 



Output Indicators 



And And 



N^ 

m 



N83 



IE 
g3 
S 



LDS 



S3 

% 

?3| 
S3 
33 

«3 
33M81 



0\f 

^1 



I 33 3^ 35 36 3? 



ERI? 



OE THE 



BE 



] es zfi 93 ss 1^ e:9 es 15 og 6f sv l^ gt st t* Et ct i 



^ 



End 
Positor 



Output 

Record 



•10 41 42 43 



PUT 



if3 
611 



OUT 

w 
Hi 



til 

62i 



TV 



i^Zi^ 



PE 



Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


Y - 


Remove 

Plus Sign 
Date 


Vm 


Yes 


, 


A 


,1 


Yes 


No 


2 


B 


K 




Field Edit 


No 


Yes 


3 


C 


1 


I = 


Zero 


No 


No 


4 


D 


M 




Suppress 



Constant or Edit Word 



45 46 47 48 49 50 SI 52 53 54 55 56 57 5S 59 BO 61 62 63 64 65 66 G7 68 69 70 



<0 

<» 

c 
2 



ou 



CU5ERF 



TEMtR 

rJeIdIoIv 

; 
) 

ONlLlY 



ro5 



USERR 



TO 



EXCEPIT 
S 



tEMPP 
) 

> 

R'EI^V 
) 

J 



To 



-NPNJ 



OMS 



PLAY 



cuARep 



; SE ic 9E 9e t« ee ee LC oe ee k h 92 se k ce ze iz 02 61 ei it 91 gi n ei ci i 



71 72 73 74 



6BI9StFeSI 



3270 Display Format Facility (DFF) 8-93 



RPG 



OUTPUT 



SPECIFICATIONS 



IBM 



Program 


Puni:hing 
Instruction 


Graphic 










- 






Card Electro Number 


Programmer 


Date 


Punch 







12 

,.a«m9]„,i9 



program 
Identification 



75 76 77 78 79 BO 

|0|R|D|E|n1t| 



7 8 9 to 11 12 13 



m 



RELEASE 



COPY 



NV 



Copy 

FOR 



DEFAULT 



TME 



ST 



TH 



AR 



T£m 



NEC 



PRl 



PLAr 



SPLAY 



Output Indicators 



And And 



eSSARY 



NA 



TO 



NT 



LL 



^2 



N 



BE 

TO 



ANC 



4 
^3 



URRENT 



PL 



PL 



S£ 



^S 



42 :)3 3rt 3E. 3G 37 



32S4 



PL 

C 



3284 



PL 



PR 



COLUKK 



-H^ 



TERM 



W 



End 
Positon 



OutlHIt 

Record 



14 



[1-4 



|3|22(> 
14 



ER 

L 



NAL 



^ 



45 46 47 48 19 iJO 51 52 53 Si 55 5G 57 58 6 



PR\ 



NE 



Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X - Remove 
Plus Sign 

Y - Date 

Field Edit 

Z ■' Zero 

Suppress 


Ves 
Yes 

No 
No 


Yes 

No 
Yes 

No 


1 
2 
3 

4 


A 
B 
C 
D 


J 
K 
L 

M 



Constanl. or Edit Word 



3 ei G2 63 64 65 6G 67 68 69 70 



71 72 73 74 



14 



14 



2^ 

I 

PR 



Ak 



NTER 



1 



NTR 



ATTACHED 



HC8 



OM 



TO 



mi 



CONTFO 



3215 



^i 



TH 



UMl 



I^CC 



i9 99 S9 frS C9 £9 19 09 69 83 £9 99 59 M es SS IS 09 6fr Btf tV St- St tV Ef It IV Ot 6€ BE iC BE SC K EE EC IC DC 6£ 8Z LL 9Z SZ K €Z IC IZ 02 6t 81 il 91 91 tl CI 21 II 01 6 B i 9 9 fr £ I 



8-94 



Example 3— SRT Inquiry Program 

This example shows RPG II, COBOL, and FORTRAN IV 
coding for an inquiry program that uses the Display Format 
Facility to display information on the 3270. The three 
versions of the program use the same basic logic, inquire 
into the same three disk files, and use the same screen 
format. The logic flow, display layout, display format 
specifications, and DFGR printout are shown on the 
following pages. 

This is a single requesting terminal (SRT) program; 
therefore, the program can handle only one inquiry on 
each execution. If sufficient main storage area is available, 
however, more than one copy of the program could be 
executing concurrently, serving different requestors. 



The terminal operator uses this inquiry program as 
follows: 

1. Signs on, keying /ONb [password] , and presses the 
ENTER key. 

2. Presses the ERASE INPUT key. 

3. Enters a program request accompanied by input 
data, as follows: 

COBOL: 

COBINQbicccccc/llllllll 

RPG II: 

RPGINQbfcccccc/llllllll 

FORTRAN IV: 

FORINQbicccccc/llllllll 

where cccccc is a six-digit customer number and 

llllllll is an eight-digit item number. Presses the 

ENTER key. 

4. Program returns a message to the terminal operator. 

5. Program terminates. 



If the input from the terminal operator is incomplete or 
invalid, the program issues an appropriate error message. 

Notes: 

• The three disk files used by the program are processed 
directly. 

• In order to have the format remain on the screen after 
the program reaches end of job, ENDMSG-NO must be 
specified on the // PROGRAM assignment statement. 
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Example 3 - Display Format Specifications for SRT Inquiry Program 
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FHfcAORlUbOb 121lj 

FCUSNO 0621 62b 

FHbAUR20a06 i31G 

FCUSNM Utt21 222t 

FHEAOR31U06 71G 

FSHPNM 1021 2226 

FHEAUK41306 810 

FITNNO 1321 e2t 

FHeAL)R5lS06 lOlG 

FITUSC 1521 202t 
/* 



CUSTOMER NQ. 
CUSTOMER NAME 
SHIP TO 
ITEM NO. 
ITEM DESC. 



(ZRPIO DISPLAY FOUMAT INFUR^i.IinN 



EXECUnON TIME DATA - OUTPUT AREA F0RI4AT - END POSITIONS .= 0R RPG PROGRAMS 



FIELD 


FIELD 


END * 


FIELO 


FIELO 


END * 


FIELD 


FIELD 


END • 


tAME 


LENGTH 


POSITION • 


NAME 


LENGTH 


POSITION ♦ 


NAME 


LENGTH 


POSITION » 























OPCODE 


004 


0004 * 


LENGTH 


004 


0008 ♦ 


THNAME 
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0014 * 


»zRPia 


006 


0020 * 


CUSNO 


006 


0026 » 


CUSNM 


022 


0048 ♦ 


SHPNM 


022 


0070 * 


ITMNO 


008 


0073 * 


ITDSC 


020 


0098 • 



INPUT AREA FORMAT - END POSITIONS FOR RPG PROGRAMS 



* FIELD 


FIELD 


END ♦ 


FIELD 


FIELD 


» vlAME 


LENGTH 


POSITION * 


NAME 


LENGTH 


• RTCOOE 


004 


0004 » 


LENGTH 


004 


» - AID- 


001 


0015 » 







END * FIELD 

POSITION « NAME 

0008 • THNAME 



FIELD END • 

LENGTH POSITION • 

006 0014 * 



LENGTH OF OUTPUT RECORD AREA REOUIRCD IN DFF PROGRAM 
RPG *SUeR92« - 0098 OTHER - 0090 



LE'>IGTH OF INPUT RECORD AREA REOUlREll IN OFF PROGRAM 
RPG tSUBR92* - 0015 OTHER - 000 7 



INFORMATION FOR USE DURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELD DESCRIPTOR TABLE IS 3U2 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS 0216 
THE DECIMAL LENGTH OF THE INPUT TEXT IS 0005 



Example 3 - Display Format Generation for SRT Inquiry Program 
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SySTEM/3 



KPSII 



0101 H 



0201 F* 

0202 F* SINGLE REQUESTOR INQUIRV PROGRAM 

0203 F* 3ISPLAY FORMAT FACILITY IN CCP. 

0204 F* 



WHICH USES THE 
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SUCH AS XXXXXX/YYYYYYYY 

001 0020RTNCQD 

015 0200CUSN0 

021 021 SLASH 

022 0290ITMNa 

009 030 CUSNM 
009 030 SHPNM 
013 032 ITDSC 



60 



-A compilation time array is used so that 
the array contains the accept input opera- 
tion code and the maximum input length 
when the TERMIN file is read. 



— ^Indicators 80 and 81 indicate when the 
/■■^ customer number or item number are 
zero or blank. 
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003 '98' 
014 

020 'tZRPIQ' 
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04 3 

042 'NAME NOT ON FILE' 
045 'Ml CUST NO. ENTERED' 

070 

064 'NAME NOT ON FILE* 

067 'NO CUST NO. ENTERED' 



07-3 



092 'ITFM NOT ON FILE' 
095 'NO ITEM NO. ENTERED' 



Example 3 - RPG II Coding for SRT Inquiry Program 
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STNO 

1 
2 
3 

<f 
5 

6 
7 
8 
9 
10 



11 






IBM SYSTEH/3 AMERICAN NATIONAL STANDARD COBOL 
COBOL SOURCE STATEMENTS IDENTFCN SEQ/NO S 



13 
14 
15 



16 

17 
18 
19 

20 



21 
22 
23 
24 
25 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3B 
39 



IDENTIFICATION DIVISION. 

PROGRAM-ID. COBINQ. 

REMARKS. THIS IS A SINGLE REOOESTOR INQUIRY PROGRAM THAT 

USES THE DISPLAY FORMAT FACILITY OF CCP. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-S3. 
OBJECT-COMPUTER. IBH-S3. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT CUSTNAME ASSIGN TO DA-5444-R-CUSTNAME 
ACCESS IS RANDOM 
ACTUAL KEY IS NAMEKEY. 
SELECT CUSTSHIP ASSIGN TO DA-5444-R-CUSTSHIP 
ACCESS IS RANDOM 
ACTUAL KEY IS SHIPKEY. 
SELECT INVENTRY ASSIGN TO OA-5444-R-INVENTRY 
ACCESS IS RANDOM 
ACTUAL KEY IS IMVTKEY. 
DATA DIVISION. 
FILE SECTION. 
FD CUSTNAME 

DATA RECORD IS CUST-NAME 
LABEL RECORDS ARE STANDARD. 
01 CUST-NAME. 

05 FILLER PICTURE X(8I. 
05 CUSNMl PICTURE X(22). 
05 FILLER PICTURE X(270». 
FD CUSTSHIP 

DATA RECORD IS CUST-SHIP 
LABEL RECORDS ARE STANDARD. 
01 CUST-SHIP. 

05 FILLER PICTURE XI8I. 
05 SHPNMl PICTURE X(22). 
05 FILLER PICTURE X(98). 
FD INVENTRY 

DATA RECORD IS INVEN 
LABEL RECORDS ARE STANDARD. 
01 INVEN. 

05 FILLER PICTURE X(131. 
05 ITDSCl PICTURE X(20t. 
05 FILLER PICTURE X(276). 
WORKING-STORAGE SECTION. 

77 NAMEKEY PICTURE S9(7) VALUE ZERO. 
PICTURE S9I7t VALUE ZERO. 
PICTURE S9(7) VALUE ZERO. 

PIC X(22) VALUE 'NO CUST NUMBER ENTERED'. 
PIC X(22) VALUE 'NO SHIP NUMBER ENTERED'. 
PIC X(221 VALUE 'NO ITEM NUMBER ENTERED'. 
PIC XI221 VALUE 'INVALID CUST NUMBER 



77 
77 
77 
77 
77 
77 
77 
77 



SHIPKEY 

INVTKEY 

NO-CUSNO 

NO-SHPNO 

NO-ITHNO 

INVALID-C 

INVALID-S 



PIC X(22) VALUE 'INVALID SHIP NUMBER 



40 
tl 
42 
43 
44 
45 
46 
47 



48 
49 
50 
51 
52 



53 
54 
55 
56 
57 
58 
59 
60 
61 
62 



INVALIO-I PIC X<22) VALUE 'INVALID ITEM NUMBER 

****************** t****«****4<***********«***********4>******«*4i*** 

* CCP-COBOL INTERFACE PARAMETER LIST. ♦ 

01 PARAMETER-LIST. 

05 PL-RTC PICTURE S9(4) CC»<P-4. 

05 PL-OPC PICTURE S9(4I CONP-4 VALUE 4. 

05 PL-OUL PICTURE S9I4) COMP-4 VALUE 128. 

05 PL-EFL REDEFINES PL-OUL PIC SSI 41 COMP-4. 

05 PL-ATI REDEFINES PL-OUL PIC S9(4) COMP-4. 

05 PL-INL PICTURE S9(4) COMP-4 VALUE 16. 

05 FILLER PICTURE X(8). 

* INPUT RECORD AREA. * 
»**♦**********•♦*♦**♦♦»**♦*♦**♦**♦*»*******♦*»****»***»»****♦»*♦» 

01 INPUT-A. 



05 TERM-IN 
05 CUSNO 
05 SLASH 
05 ITMNO 



PICTURE X(6). 
PICTURE X(6I VALUE 

PICTURE xm. 

PICTURE X(8) VALUE 



'000000' 



00000000'. 

* PUT FORMAT OUTPUT AREA. ♦ 

01 OUTPUT-A. 

PICTURE XI6). 

PICTURE X(6) VALUE '$ZRPIO'. 

PICTURE X(61 VALUE '000000'. 

PICTURE X(22> VALUE SPACES. 

PICTURE X(22l VALUE SPACES. 

PICTURE XI8) VALUE '00000000'. 

PICTURE XI20) VALUE SPACES. 



05 TERM-OUT 

05 SCREEN 

05 CUSNO 

05 CUSNH 

5 SHPNM 

05 ITMNO 

05 ITDSC 
PROCEDURE DIVISION. 
OPEN-THE-FILE. 



001010 

001020 

001030 

001040 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 

002110 

002120 

002130 

002140 

002150 

003010 

003020 

003030 

003040 

003050 

003060 

003070 

003080 

003085 

003090 

003100 

003110 

003120 

003130 

003140 

003145 

003150 
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003180 
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003200 

003205 

004010 

004020 

004030 

004040 
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004043 
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004045 

004046 

004050 

004060 

004070 

004080 
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004100 

004110 

004120 

004130 

004140 

004150 

004160 

004170 

004180 

004190 

004200 

00422^0 

004230 

004240 

004250 

004260 

004270 

004280 

004290 

004300 

004310 

004320 

004330 

004340 

004350 

005010 

005020 
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63 
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65 

66 

67 

68 

69 

70 

72 

73 

74 

75 

76 

77 

78 

80 

82 

83 

85 

87 

88 

90 

92 

93 

94 

95 

97 

98 

99 

100 

102 

103 

104 

105 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 



OPEN INPUT CUSTNAME. 

OPEN INPUT CUSTSHIP. 

OPEN INPUT INVENTRY. 
ACCEPT-! NPUT. 

NOVE 4 TO PL-OPC. 

MOVE 15 TO PL-EFL. 

CALt 'CCPCIO' USING PARAMETEB-llST , INPUT-A. 

IF PL-RTC NOT EQUAL TO GO TO END-OF^JOB. 
GET-OISKDATA. 

HOVE CUSNO OF INPUT-A TO NAMEKEV. 

MOVE CUSNO OF INPUT-A TO SHIPKEV. 

MOVE ITMNO OF INPUT-A TO INVTKEV. 

MOVE CUSNO OF INPUT-A TO CUSNO OF OUTPUT-A. 

MOVE ITMNO OF INPUT-A TO ITMNO OF OUTPUT-A. 

IF NAMEKEY IS EOUAt TO ZERO MOVE NO-CUSNO TO CUSNM 
FUSE PERFORM READ-C. 

IF SHtPKFY IS EQUAL TO ZERO MOVE NC-SHPNO TO SHPNM 
ELSE PERFORM READ-S. 



TAG2. 



IF INVTKEY IS EQUAL TO ZERO MOVE 
ELSE PERFORM REAO-I . 



MO-ITMNO TO ITDSC 



TAG3. 

GO TO CONTINUE- I, 
READ-C. 

READ CUSTNAME INVALID KEY GO TO ERROR-C . , 

HOVE CUSNMl TO CUSNM. 

GO TO TAGl. 
REAO-S. 

READ CUSTSHIP INVALID KEY GO TO ERROR-S. 

HOVE SHPNKl TO SHPMM. 

GO TO TAG 2. 
REAO-I. 

READ INVENTRY INVALID KEY GO TO EBRQR-I. 

MOVE ITDSCl TO ITDSC. 

GO TO TAG3. 
ERROR-C. 

MOVE INVALIO-C TO CUSNM. 

60 TO TAGl. 
ERROR-S. 

MOVE INVALID-S TO SHPNM. 

GO TO TA62. 
ERROR-I. 

HOVE INVALID-I TO ITOSC. 

GO TO TAG3. 
CONTlNUE-1. 
PUT-ROUTINE. 

MOVE 50 TO PL-OPC. 

MOVF 84 TO PL-OUL. 

MOVE TERM-IN TO TERM-OUT, 

CALL 'CCPCIO' USING PARAMETER-LIST, OUTPOT-A. 
ENO-OF-JOB . 

CLOSE CUSTNAME. 

CLOSE CUSTSHIP. 

CLOSE INVENTRY, 

STOP RUN. 



005030 

00S040 

005050 

005060 

005070 

005080 

005090 

005100 

005110 

0Q5t20 

005130 

005140 

005142 

005144 

005150 

005160 

005165 

005170 

005180 

005185 

005190 

005200 

005201 

005205 

005210 

005220 

005230 

005235 

005240 

005250 

005260 

005265 

005270 

005280 

005290 

005295 

005300 

005310 

005320 

005330 

005340 

005350 

005360 

005370 

005380 

005390 

005400 

005410 

005420 

005430 

005440 

005500 

005510 

005520 

005530 

005540 



Example 3 - COBOL Coding for SRT Inquiry Program (Part 2 of 2) 
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1 PROGRAM FORINQ 

2 DEFINE FILE 8( 1 00 , 300, L , I R8 ) ,<3 (100 ,1 28 , L , 1 R9 ) , 10 (100, 309, L , IRIO ) 

3 INTEGER * 2 P ARM ( 8 ) , RTC , OPC , OUTL , INL , ICUST, I SHI P , I TEM 

4 INTEGER * 2 PUTBU F ( 92 ) , BUFFER ( 30<5 ) , FNAME (6 ) , INBIJF( 22 ) 

5 INTEGER * 2 MSG 1( 22) ,MSG2 ( 22) , MSG3 ( 22) ,MSG4( 22 ) , MSG5 ( 22 ) 

6 INTEGER * 2 MSG6 ( 2 2 ) , SL ASH 

7 EQUIVALENCE ( RTC ,PARf (1 ) ) , (CPC , PARM ( 2) ) 

8 EQUIVALENCE (OUTL, PARM( 3 ) ) , ( INL , PARM (4) ) 

9 DATA FNAME /' $ Z R P I Q '/ 

10 DATA MSGl /'N CUST NUMBER ENTERED'/ 

11 DATA MSG2 /'N SHIP NUMBER ENTERED'/ 

12 DATA MSG3 /'N ITEM NUMBER ENTERED'/ 

13 DATA MSG4 /'INVALID CUST NUMBER •/ 

14 DATA MSG5 /'INVALID SHIP NUMBER '/ 

15 DATA MSG6 /'INVALID ITEM NUMBER •/ 

16 DATA SLASH /'/'/ 

17 QPC=4 

18 0UTL=16 

19 INL=16 

20 CALL CCPFIO(PARM,INBUF) 

21 IF (RTC .NE. 0) GO TO 140 

22 XCUST=GET(INBUF, 7, 12,1.0) 

23 ICUST=XCUST 

24 ISHIP=ICUST 

25 CALL M0VE(INBUF,1,6,PUTBUF,1) 

26 CALL M0VE(FNAME,1,6,PUTBUF,7) 

27 CALL MOVE(INBUF,7,12,PUTBUF,13) 

28 CALL MOVE ( INBUF, 14, 21 , PUTBUF, 63 ) 

29 IF (ICUST) 10,10,20 

30 10 CALL M0VE(MSG1, 1,22, PUTBUF, 19) 

31 GO TO 30 

32 20 READ ( 8' ICUST,1000 ,ERR=110 ) ( BUFFER ( I ) ,1 =1 ,300) 

33 CALL M0VE(6UFFER,9,30,PUTBUF,19) 

34 30 IF (ISHIP) 40,40,50 

35 40 CALL MOVE (MSG2, 1 , 22, PUTBUF ,41 ) 

36 GO TO 60 

37 50 READ ( 9 ' I SHI P , 10 10 ,ERR = 120 ) ( BU FFER ( I ) , 1 = 1 , 128 ) 

38 CALL MOVE(BUFFER,9,30,PUTBUF,41) 

39 60 IF (INBUF(13)-SLASH) 80,70,80 

40 70 XTEM=GET( INBUF,14,21,1.0) 

41 ITEM=XTEM 

42 IF (ITEM) 80,80,90 

43 80 CALL M0VE(MSG3, 1,22, PUTBUF, 71) 

44 GO TO 100 

45 90 READ ( 10' ITEM ,1020 , ERR=130 ) ( BU FFER ( I ), 1 = 1 , 309) 

46 CALL MOVE(BUFFER, 14,33,PUTBUF,71) 

47 100 0PC=50 

48 0UTL=84 

49 CALL CCPFIO( PARM, PUTBUF) 

50 GO TO 140 

51 110 CALL M0VE(MSG4, 1,22, PUTBUF, 19) 

52 GO TO 30 

53 120 CALL MOVE ( MSG5, 1, 22, PUTBUF, 41 ) 

54 GO TO 60 

55 130 CALL MOVE (MSG6, 1, 22, PUTBUF ,71 ) 

56 GO TO 100 

57 140 STOP 

58 1000 FORMAT( 150A1) 

59 1010 F0RMAT{128A1) 

60 1020 FORMAT( 103A1) 

61 END 

Example 3 - FORTRAN IV Coding for SRT Inquiry Program 
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Example 4 - RPG II Order Entry Program (Using PRUF 
with the DFF) 

This illustrates the use of the PRUF capability with RPG II. 
The example is an order entry application program. 
Example 2 in this chapter illustrates an order entry 
application written as one large MRT program, and as 
can be seen, the logic becomes quite complicated. By 
using PRUF with DFF, the one program can be broken 
up into six smaller and logically much simpler programs. 
The six sample programs are described as follows: 



Prior to running the order entry program, the HOLDORDR 
file must be created in the following format: 



Master 
record 



Header record 
for terminal 1 



Order record area/ 
for terminal 1 



' Header record 
for terminal 2 



Order record area 
for terminal 2 



...etc 



OR DERLSRT Program Requested from the System Console 

ORDERL reads cards from the MFCU and formats the 
direct output HOLDORDR file (Figure 8-20), which will 
be used as a spool-type file to contain all orders entered 
from the 3270 terminals, with the master record for the 
file and all header records for the 3270 order entry terminals. 
The ORDERL program (Figure 8-21) requires input in the 
following format: 



Card 1, Columns 1 
Columns 2-7 



Cards 2-n, Columns 1 
Columns 2-7 

Columns 8-9 



— Number of 64 character records 
per allocation unit 

— H 

— Symbolic terminal name of 
3270 order entry terminal 

— Number of allocation units to be 
assigned this terminal 



The master record is 64 characters long and is the first 
record of the HOLDORDR file. The format of the master 
record is as follows: 



Column/ Value 
Positions 

1 A 



Meaning 



Identifies the master record 



2-7 


RRECT 


A 6-digit number, repre 
senting the number of 
records between header 
records 


8-13 


TERMNAME,n 


^ 


14-19 


TERMNAME,2 


Symbolic name of 
terminal 



The advantage of this order entry application is that the 
inventory file is not updated until the terminal's PF1 key 
is pressed, which indicates that the order is complete. All 
orders are written to the HOLDORDR file, from which 
they can be printed via a stand-alone print program. They 



38-43 TERMNAIVlE,6j 

The format of the 64 character header record is as follows: 



also can 


be printed at the time the orders are processed 


Column/ 






via a print program that runs as a CCP user task. 


Positions 


Value 


Meaning 




1 


H 


Identifies the header record 


The format of the HOLDORDR file is as follows: 










2-7 


RRECDN 


Relative record number of 
the next available record to 


Master 


Order records 


Order records 




Order rec- 






start an order; initialized to 


record 


for terminal 1 


for terminal 2 




ords for 

terminal n 






relative record number of 




header record + 1 



For this example,/? equals a maximum of six terminals. 



8-13 RRECDP Relative record number of 

next order to print; initial- 
ized to the same value as 
RRECDN 



14-19 



TERMNAME 



Symbolic name of terminal 
this space is allocated to 
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When the HOLDORDR file was created, space was allocated 
(RRECT) to contain a predetermined number of order 
records between header records. When a terminal has 
been found to have a high level of order entry, It is of 
great value to the user to create more than one header 
record for that terminal. This technique can multiply the 
space available for a particular terminal. 

When an order has been successfully entered, RRECDN 
will be updated to point to the record where the next 
order will start. When an order has been printed, 
RRECDP is updated to point to the next order to be 
printed. The printing of an order will allow another 
order to be entered in that record area (Figure 8-26). 

Prior to starting a new order, if RRECDP = RRECDN, both 
values are updated to point to the header record +1. This 
means that all the order record areas for that terminal 
are available. 

The HOLDORDR file is dynamic and needs to be formatted 
only initially. 



The order entry application outputs an order in the 
following format: 



Record Number 








Relative to 








Start of Order 


Position Value 


Meaning 


1 


1 


N 


Identifies order 
heading 




2 


1 






3-10 


ORDNO 


Number assigned 
to order 




11-16 


CUSNO 


Customer number 




17-38 


CUSNAM 


Customer name 




39-60 


CUSA1 


Customer address 
field 1 


2 


1 


N 


Identifies order 
heading 




2 


2 






3-24 


CUSA2 


Customer address 
field 2 




25-46 


CUSA3 


Customer address 
field 3 


3 


1 


N 


Identifies order 
heading 




2 


3 






3-24 


SHPNAM 


Ship-to name 




25-46 


SHPA1 


Ship-to address 
field 1 


4 


1 


N 


Identifies order 
heading 




2 


4 






3-24 


SHPA2 


Ship-to address 
field 2 




25-46 


SHPA3 


Ship-to address 
field 3 




47-51 


ZIPCD 


Zip code 


5 


1 


D 


First detail line 
of order 




2-3 


LN 


Detail line 
number 




4-9 


QTY 


Quantity 




10-17 


ITMNO 


Item number 




18-37 


ITMDSC 


Item description 




38-48 


PRICE 


Price = Quantity 
Price per item 


R 


1 


T 


Total line 




2-12 


Cost excl 


Tax 




13-22 


State tax 






23-32 


Federal tax 




33-43 


Total cost 



A detail record is written for every ITMNO entered by the 
order entry operator. 
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The order entry application functions as follows; 

The order entry operator requests the order entry appli- 
cation by keying in ORDERIliCUSNO/ORDNO where 
CUSNO is a 6-position customer number and ORDNO is 
an 8-position order number field. 0RDER1 (Figure 8-22) 
reads the CUSTNAME and CUSTSHIP files, and if found 
performs a PRUF-Put message to the 3270 terminal of the 
data retrieved. The cursor is left positioned under the 
ship-to information. The operator can override this infor- 
mation if so desired. The first field of the screen is a type 
7 output/input field which has the value of 0RDER2K. 
After the ship-to information has been updated, the 
operator presses the ENTER key. This is actually a pro- 
gram request for 0RDER2 (Figure 8-23). 0RDER2 inputs 
the fields using $Z0RD1 as the controlling format for 
inputting the program request data. 0RDER2 writes the 
four N records to the HOLDORDR file and performs a 
PRUF-Put message operation to format the 3270 with 
header information for entering QTY and ITMNO. The 
first field on the screen is a type 7 output/input field of 
value ORDER3I4. The cursor is positioned to allow input 
of the QTY field. The operator keys in the QTY number 
and ITMNO number and presses the ENTER key. This is 
a program request for 0RDER3 (Figure 8-24). 0RDER3 
inputs the QTY and ITMNO numbers using $Z0RD2 as 
the controlling format for the program request data. If 
the ITMNO number is found, the following information 
is displayed under the QTY and ITMNO headings: 



LINE NO. 

02 
01 



QTY ITMNO ITMDES PRICE 



xxxxxx xxxxxxxx xxxx.xx 



The cursor is positioned under the QTY field, however if 
line number 01 is found to be in error, the operator can 
backspace to the line number field and enter 01 followed 
by the correct QTY and ITMNO. ORDERS will write 
out a D (detail) record in the HOLDORDR file if the line 
number field is not equal to the previous line number 
record. In this example, line number 01 's D record is 
written following the successful entry of line number 02, 
or the PF1 key is pressed to indicate the order is complete. 



When the PF1 key is pressed, 0RDER3 issues a PRUF- 
Put message to the operator indicating to press the ENTER 
key which completes the order. Now a program request 
for 0RDER4 is issued (Figure 8-25). 0RDER4 inputs 
all D records written for this order, updates the inventory 
file, writes the T (total) record for the order to the 
HOLDORDR file, and updates the RRECDN value in the 
header record for that terminal. The terminal is now in 
command mode, and is available for the next order entry 
request or other program requests. 

It should be noted that after issuing a PRUF-Put message, 
ORDER 1 and 0RDER2 go to end of job; that is, as the 
operator keys in data on the terminal, the terminal buffer 
is being used, not the user's program area in main storage. 
When the ENTER key is pressed, the next program is 
requested and all non-output fields with MDT-ON are 
passed under format control to the requested program. 
Figure 8-28 shows the assignment set requirements for the 
order entry application, and Figure 8-27 shows orders after 
they have been printed by ORDERP. 

The formats used in this sample order entry program are 
illustrated in Figure 8-29. The following chart lists the 
programs and the formats they use: 



Program 


Formats 


0RDER1 


$Z0RD1 




$Z0RD5 


0RDER2 


$Z0RD2 




$Z0RD5 


ORDERS 


$Z0RD3 




$Z0RD4 




$Z0RD5 


0RDER4 


$Z0RD5 




$ZORD6 
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*A001000N32112N32X12N32142N32102N* 

*32002N32002 * 

*H000018000003N32112 * 

* * 
*N100000006000006BR0WN WHOLESALE * 
*SUPPLY SEVILLE * 
*N2PHILA., PENN * 

^ * 

*N3SLAY BROS INC WELLS* 

* * 
*N4PHILA., PENN TRUCK * 

* 00000 * 
*D0100000100000001 BLUE FLUORES* 
*CE 000000000013000 * 
*D0200000200000001 BLUE FLUORES* 
*CE 000000000026000 * 

*T0000003900000000015600000001950* 
*00000042510 * 

*N100000010000010BLACK£ JONES CHEM* 
*ICAL C 19TH STREET * 

*N2PHILADELPHIA, PENNA. * 

* * 

*N3SAME * 

* * 

*N4 TRUCK * 

* 00000 * 
*D0100000200000002 X02 PLUG * 

* 000000000003426 * 
*D0200000300000003 X03 PLUG * 

* 000000000003600 * 
*D0300000400000004 X04 PLUG * 

* 000000000006800 * 

*T0000001382600000005530000000691* 
*00000015070 * 

* * 

*H002018002003N32142 * 

« * 

*N100000005000005FAST ELECTRONICS* 

* W GLENWOOD * 
*N2PITTSBURG, PENN * 

* * 

*N3SAME * 

* * 
*N4 AIR FREI* 
«GHT 00000 * 
*D0100000100000002 X02 PLUG. * 

* 000000000001713 * 
*D0200000100000001 BLUE FLUORES* 
*CE 000000000013000 * 

*D0300000400000001 BLUE FLUORES* 

*CE 000000000052000 * 
*T0006006671300000026680000003335* 

*00000072716 * 

*N100000009000009 JOSEPH CLARKE * 

* 1520 MAPLE STREET * 
*N2MAPLEW00D, OHIO * 

* * 



*N3 SAM BLIZZARD 



SAME * 
* 

*N4 SAME FIRST C* 

*LASS MAIL 00000 * 

*D0100000400000004 X04 PLUG * 
* 000000000010500 * 



*T0000001730000000006920000000865* 
*00000018857 * 

* * 

*H003018003003N32102 * 

* * 
*N100000007000007BENNETT INC * 

* CHESTNUT * 
*N2PHILA., PENN * 

* * 

*N3SAME * 

* * 
*N4 AIR FREI* 
*GHT 00000 * 
*D0100000100000001 BLUE FLUORES* 
*CE 000000000013000 * 
*D0200000200000002 X02 PLUG * 

* 000000000003426 * 

*D0300000300000003 X03 PLUG * 

* 000000000003600 * 
*T0000002002600000008010000001001* 
*00000021828 * 
*N100000008000008 STEPHANIE BOOKS* 

* MAPLE STREET * 
*N2 GREENVILLE, NEW YORK * 

* * 

*N3 JOHN BOOKS CLEMENTS* 

*0N COLLEGE * 

*N4 GETTYSBURG, PENNA. PONY EX* 
*PRESS 00000 * 

*D0100000100000001 BLUE FLUORES* 
*CE 000000000013000 * 

*li0200000400000004 X04 PLUG * 

* 000000000006800 * 

*T0000001980000000007920000000990* 
*00000021582 * 

* * 



*H004017004003N32002 



* 
* 
*N100000003000003D £ C SHIPPERS * 

* FILBERT * 
*N2 PHILA., PENN * 

* * 

*N3SAME * 

* * 
*N4 AIR FREI* 
*GHT 00000 * 
*D0100000500000005 X05 PLUG * 

* 000000000010500 * 
*D0200000600000006 XZ6 PLUG * 

* 000000000010800 * 

*T0000002130000000008520000001056* 
*00000023217 * 

*N100000003000002CARLSON BYRNES C* 
*0 N BROAD * 

*N2PHILA., PENN * 

* * 
*N3W K GARRISON CO SANS* 
*0M * 

*N4PHILA., PENN TRUCK * 

* 00000 * 
*D0100000200000003 X03 PLUG * 

* 000000000002400 * 
*D0200000100000002 X02 PLUG * 

* 000000000001713 * 
*T0000000411300000001640000000205* 
*00000004482 * 



Figure 8-20. HOLDORDR File Organization 
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0101 


H 


R 


4 
















CRDERL 


0201 


FCARDIN 


IPE 96 


96 




MFCUl 






ORDERL 


0202 


FH0L00R050C 


64 




64R 




DISK45 




CRDERL 


0203 


FPRINTOUTO 


132 132 




PRINTER 




GRDERL 


0301 


E 










TERM 




6 6 






ORDERL 


0401 


ICAROIN 


AA 


10 


1 


CA 










ORDERL 


402 


I 
















2 


70RRECT 40 


ORDERL 


0403 


I 




AB 


20 


1 


CH 










CRDERL 


0404 


I 




OR 


30 


INCA 


INCH 








ORDERL 


0405 


I 
















2 


7 TRMNM 


ORDERL 


0406 


I 
















8 


90N 85 


ORDERL 


0407 


I 
















1 


96 CARD 


ORDERL 


0501 


C 


30 
















IF INVALID CARDCRDERL 


0502 


C0RN80N10 














OR RRECT ZERO 


CRDERL 


0503 


C0RN80 ] 


LO 40 




SET ON 






LR50 SET ON LR AND 


ORDERL 


0504 


C 


LR 








GOTO END 






PRINT ERROR MSGORDERL 


0505 


c 


10 








Z-ADDO 


I 




10 CHECK FOR ORDERORDERL 


0506 


c 


10 








SETON 






80 OF INPUT CARDS 


ORDERL 


0507 


c 


10 








Z-ADD2 


RRECDH 


60 SET REC NUM=TWOORDERL 


0508 


c 


10 








GOTO END 






READ NEXT CARD 


CRDERL 


0509 


c 










MOVE RRECDH 


RRECl 


60 


ORDERL 


0510 


c 






RRECDH 


ADD 


1 


RRECDD 


60 HDR REC PLUS 1 


ORDERL 


0511 


c 






LOOP 




TAG 










CRDERL 


0512 


c 






I 




ADD 


1 


I 






ORDERL 


0513 


c 






7 




COMP I 






70MAX OF 6 TERMS 


ORDERL 


0514 


c 


70 








SETON 






50LR 


ORDERL 


0515 


c 


50 








GOTO END 








ORDERL 


0516 


c 










MOVE TRMNM 


TERM, I 




CRDERL 


0517 


c 






RRECDH 


ADD 


RRECT 


RRECDH 


BUMP TO NXT HDRORDERL 


0518 


c 


N85 




N 




SUB 


1 


N 




8585 


ORDERL 


0519 


c 


N85 








GOTO LOOP 








ORDERL 


0520 


c 






RRECl 




CHAINH0LD0RD5 




60 GET HEADER REC 


ORDERL 


0521 


c 


60 








SETON 






LR50 FOR THIS TERM 


GRDERL 


0522 


c 






END 




TAG 










ORDERL 


0523 


c 










SETOF 






85 


ORDERL 


0524 


CLRN50 




1 




CHAINH0LD0RD5 




GET MASTER REC 


CRDERL 


0601 


OPRINTOUTH 


201 


IP 












GRDERL 


0602 

















13 


•RECORD NUMBER' 


ORDERL 


0603 

















30 


•TERMINAL NAME' 


CRDERL 


0604 







D 


1 


20 












ORDERL 


0605 















RRECl 


10 






ORDERL 


0606 















TERM,! 


25 






ORDERL 


0607 







T 


3 


LR 


50 










CRDERL 


0608 















CARD 


96 






CRDERL 


0609 











10 


40 




125 


•RECORDS/TERMINAL INVALID- 


ORDERL 


0610 











30 






126 


'INVALID CARD TYPE' 


CRDERL 


0611 











60 






126 


'END 


OF ORDER FILE' 


ORDERL 


0612 











70 






126 


•MORE 


: THAN 9 TERMINALS' 


ORDERL 


0613 


0H0LD0R050 




20 












ORDERL 


0614 

















1 


'H' 




CRDERL 


0615 















RRECDD 


7 






CRDERL 


0616 















RRECDD 


13 






ORDERL 


0617 















TERM, I 


19 






ORDERL 


0618 







T 




LRN5 










CRDERL 


0619 

















1 


'A' 




ORDERL 


0620 















RRECT 


7 






CRDERL 


0621 















TERM, I 


13 






CRDERL 


0622 















TERM, 2 


19 






ORDERL 


0623 















TERM, 3 


25 






CRDERL 


0624 















TERM, 4 


31 






ORDERL 


0625 















TERM, 5 


37 






ORDERL 


0626 















TERM, 6 


43 






ORDERL 



Figure 8-21. ORDERL Program 
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0101 
0201 
0202 
0203 
0204 
0205 
0206 
0300 
3 301 
0400 
0401 
3 402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
415 
0416 
0501 
0502 
50 3 
0504 
50 5 
0506 
0507 
508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0600 
0517 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
#* 



H R 4 

FTERNIN IP 

F 

FTERMOUT 

F 

FCUSTNAMEIC 

FCUSTSHIPIC 

E* THE FOLLOW 

E 

I* THE FOLLOW 

ITERMIN AA 

I 

I 

I 

I 

ICUSTNAMEAA 

I 

I 

I 

I 

ICUSTSHIPAA 

I 

I 

I 

I 

I 

C 

C 91 

COR 92 

C 30 

COR 80 

COR 81 

C 



29 29 
215 215 



300 300R D 

256 128R D 

ING COMPILE TIME ARRAY 
PL 5 5 

ING INPUT IS DATA WITH 

01 



SPECIAL SUBR92 

KPL 
SPECIAL SUBR92 
KPL 
ISK 
ISK 
HAS ACCEPT INPUT LENGTH OF 29 
6 
PROGRAM REQUEST 



10 



11 



1 CM 



1 CM 



2 CA 



2 CB 



81 



N85 10 
85 



USNO 
USNO 



COR 86 

CORNIO 

CORNll 
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CUSTOMER 



SHIP TO 



Dec SHTPPFR S 

FILBFR T 
PHLA.t PFNN 



SAME 



OUANTITY 



nonoc5 
onnoci^ 



I TFK 



CCCCCCC5 

ccccccne 







AIR 


FREIGHT 




CCCCC 






CFSCRIPT ION 








COST 




X0 5 

yz6 


PLun 

PLUC 




TOTAL 

STATE TAX 

FEDERAL TAX 

TOTAL ORDER COST 


1C5.CC 

ice.cc 




213. CC 

8.52 

IC.65 

232.17 



CROFR ^'U^'RFR 00000003 RATE 2/16/75 



rUSTHMFP 



SNTP TO 



CARLSON BYRNES TO 

N BRTAn 
PFILA., PFNN 



W K GARRISON CO 

SANSOM 
PHLA., PENN 

ITRUCK 



CCCCC 



Ql)A^JT ITY 



I TFM 



CESCRIPT ION 



COST 



000CC7 
OOOCOl 



CCCCCCC^ 
CCCOCCO? 



X0 3 PLUG 
X0 2 PLUG 



Z^.CC 

n.i3 



TOTAL 

STATE TAX 

FEDERAL TAX 

TOTAL OBOER COS! 



41.13 
1.64 

z.c; 
44- aa, 



Figure 8-27 (Part 3 of 3). Sample Output of ORDERP Program 



3270 Display Format Facility (OFF) 8-119 



// DISKFILF N»ME-HOLDORD5,ORG-D,REr,L-64 

// DISKFILE NAME-CIJSTSHIP,nRG-0,RECL-I2e 

fl DISKFILE NAME-CUSTNAME,nRG-D,RFCL-3C0 

// DISKFILE NAME-INVENTRY,ORG-D,RE€L-3C0 

// PROGPAf* NAME-OROERL.ENnMSG-YES.PGMnATfl-NCCFCUl-R.FRtNTER-SHR, 

// FILES-BHOLCOROS/Dni: 

// PRDGRAH NAME-OROERl.PGMOATA-VFS.ENOMSG-Nr, 

// 0FFMTERM-l,CFFNDF-l,nFFSFnT-I82, 

// FILES-cCUSTNAHE/nG/SHR,ClJSTSHIP/DG/SHRn 

// PROGRAM NAME-0R0ER2tPGMnATA-YFS,ENnvSG-NC, 

// OFFHTERM-l, CFFNDF- l.DFFSFDT- ?1 ?, 

// PRUFLNG-243, PRUF$?-$7nRni, 

// FILES-CH0LC0R05/0U/SHRD 

// PROGRAM NAME-ORDER 3, PGMDATA- YE S,ENDfSG-NC, 

// MRTMAX-'i,nFFMTERH-4,CFFNnF-2,DFFSFDT-31?, 

// PRUFLNG-123,PRUF$Z-*ZnR0?, 

// FILES-BHOLtORnS/nu/SHR , TNVENTR Y/OG /SHRa 

// PROGRAM NAME-OROER'i,PGMOATA~YFS,ENDMSG-YFS, 

// 0FFHTERM-l,CFFNnF-l,DFFSFDT-7C, 

// PRUFLNG-30,PRUF*Z-$Z0RD3, 

// FILFS-CHOLCnfinS/OU/SHR, INVENTRY/nil/SHRo 

// PROGRAM NAME-OROERP^,PGMnATA-Nn,ENnNSG-YES,PR[NTER-YES, 

// FILES-DH0tC0RD5/D»/SHRc 

Figure 8-28. Assignment Set Considerations 



$ZORD1 



CIZCRCISHPNM 2Y X 


Rl 




FFGMNAV01020O7 


7GY 


nROER? 


FCRCFRH03010121F 




DROER NUMBER 


FPR0MJVD316O08 


a FY 




FCUSTH 


05010151F 




CUSTPMFR NUMBER 


FCUSNO 


051')006 


a FY 




FCUSNMH07r)101?lF 




CUSTOMER N4MF 


FSHPNMHO7360O71F 




SHI" TO 


FCUSNM 


0901022 


PFV 




FSHPN^ 


0<»?60?? 


lEV 




FCUSAl 


1001022 


gFY 




FSHPAl 


1036022 


IFY 




FCUSA2 


1101022 


SFY 




FSHPA2 


infi022 


lEY 




FC(JSA3 


1201C22 


PFV 




FSHPA3 


1236022 


IFY 




FZIPCC 


12^000!; 


3FV 




INFCR^ATirN FHP 


usr 


CURING CCP ASSIGNMENT STAGE 



TFE HECIMAL LENGTH OF TFE FIFLD OFSCRIPTOR TABLE IS 0182 
THE OECIM/IL LENGTh OF THE OUTPUT TEXT IS C399 
TFF OECIMiL LFNGTF OF TFF INPUT TFXT 15 C2A3 



Figure 8-29 (Part 1 of 3). Formats 



8-120 



0R0ER3 



$Z0IFtD2 

C$7CPC2CTYl 2N X «1 
F!:(;t'N«HOl02007 7GV 

FBRECCC0111012 7EV 

FCRDM>fO3160O81E 
FCUSNC 051800£1E 
FCUSNM 09010221E 
FSHPNM Oq35022rE 
FCUSAl IO01O221E 
FSHPAl 10360221E 
FCUSft2 11010221E 
FSHPA2 11360221E 
FCUSA3 120X0221E 
FSHPA3 12360221E 
FZIPCC 126O0051E 
FLINEH 150100eiF 
FCTYH 15140081F 
FITWH 15240081F 
FCESCH 15380111F 
FPRtCEH15660051F 
FLINl 160A002 3GY 

FCTYl 16TA006 3GY 

FITMl 1624008 3GY 

FLIN2 1704002 7EY 

FCTY2 17U006 7EY 

FITM2 172*008 7EY 

FCESC 1734022 7EY 

FPRtCE 1759015 7EY 

TNFPRI«*TIPN FOR USE CURING CCP ASSIGNMENT STAGE 

THE DECIMAL LENGTH OF TFE FIELO DESCRIPTOR TABLF IS C31? 
TFE DECIMAL LENGTH OF THE OUTPUT TFXT IS C513 
THE DECIMAL LENGTI- OF THE INPUT TEXT IS C123 



LINE NO. 

QUANTITY 

ITEM ND. 

DESCRIPTION 

PRICE 

01 



$ZORD3 



C$Z0RC3 2Y X Rl 

FPGMNAM0102007 7GY 

FBRECD00111012 7EY 
FCB0ERM0 3010291F 



ORDER* 



PRESS ENTER TO CCI»PLETe CRDEB 



INFORMATICN FOP USE CURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELD DESCRIPTOR TABLF IS CC56 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS CC79 
THE DECJMAL LENGTH OF THE INPUT TEXT IS CC3C 



$ZORD4 



C<?0Rn40TYl 2N X 


Rl 


FFGMNAM0102007 


7GY 


FRRECD00111012 


7EY 


FLlNl 


1604002 


3EY 


FCTYl 


1614006 


3EY 


FITMl 


1624008 


3EY 


FMESG 


16340221E 




FLIN2 


1704002 


8EY 


F0TY2 


1714006 


BEY 


FITM2 


1724008 


8EY 


FCESC 


1734022 


BEY 


FPRICE 


1759015 


8EY 



ORDERS 



INFOPMATITN FOR USE CURING CCP ASSIGNMENT STAGE 



THF DECIMAL LENGTH OF THE FIELO DESCRIPTOR TABLE IS 01*8 
THF OFCIMAL LENGTH OF THE OUTPUT TEXT IS 0Z25 
THF DECIMAL LENGTH OF THE INPUT TEXT IS 0123 



Figure 8-29 (Part 2 of 3). Formats 
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$ZORD5 



C1Z0RC5 ?Y X 
FeRRMSG0 102r)201E 
FFRRMS201230021F 
FEPRMS301270151F 



Rl 



ORDER CANCELED 



rNFORt'ATICN FOR USE DURING CCP ASSIGNMENT STAGE 



THE OECIVjdL LENCTh OF THE FIELD DESCRIPTOR TABLE IS 0056 
THE OECIfAL LENGTH OF TKE OUTPUT TEXT IS CC5e 
THE DECIMAL LENGTH OF THE INPUT TEXT IS CCC5 



$Z0RD6 



CJZCRC6 

FHEAOl 

FPRICH 

FPRICE 

FHEAD2 

FTAXl 

FHEAD3 

FTAX2 

FHEAO^i 

FTOTALH 

FTCTAL 



2V X Rl 
03010181F 
05010061F 
05170151F 
060 10 1 3 1 F 
06170151E 
070I0131F 
07170I51F 
0ai70151F 
10010131F 
101701'52F 



ORORR IS COHPLETEO 

AMOUNT 

STATE TAX 
FEDPRAL TAX 



TOTAL 



INFORMATION FOR USf CURING CCP ASSIGNMENT STAGE 



THE DECIMAL LENGTH OF THE FIELD DESCRIPTOR TABLE IS 0C70 
THE DECIMAL LENGTH OF THE OUTPUT TEXT IS Cl?^ 
THE DECIMAL LENGTH OF THE INPUT TEXT IS 0GC5 



Figure 8-29 (Part 3 of 3). Formats 



8-122 



Chapter 9. Program Preparation 



After you have written a program which is to be run under 
the CCP, you must take steps to make it usable under the 
CCP: 

1. Compile or assemble the program to create an object 
module. 

2. Link-edit the object module. 



3. You may need to copy the program module to your 
production CCP disk pack or to the system pack 
that will be online by using the Library Maintenance 
program ($MAINT). 

4. Prepare assignment specifications to include the 
program and the resources required by the program 
(such as disk files, terminals, and unit record devices) 
in one or more assignment sets in the assignment file, 
$CCPFILE, and execute the Assignment Build pro- 
gram (see CCP System Reference Manual). 

Before taking the preceding steps, be sure to read Disk File 
Considerations and Unit Record File Considerations, later 
in this chapter. 



Source programs cannot be compiled or assembled under 
CCP control. Programs may be compiled or assembled in 
the non-CCP program level of a DPF (dual partition) 
system; however, if the program is a recompilation of a 
program that is available to the CCP in the current assign- 
ment set, the new object module should be placed on a 
disk pack that is not being used by the CCP. New programs 
may be placed on a CCP program pack, but will not be 
available to the CCP until they are included in an assignment 
set. 

Note: 5704-SC2 supports an application development 
feature that allows new or modified programs to be 
catalogued online to an active CCP library on the system 
or program pack. By specifying EXECFIND-YES on the 
PROGRAM assignment statement, the program is located 
and catalogued in the library each time the program is 
requested. If this function is used extensively, system 
performance can be degraded because the program must 
be located each time it is requested rather than once at 
Startup. 



COMPILING AND LINK-EDITING THE PROGRAM - 
MODEL 15 CCP 

Procedures for compiling or assembling a source program 
are given in the appropriate programming language reference 
manual (see Appendix C: Bibliography) or in IBM System/3 
Model 15 System Control Programming Reference Manual, 
GC21-5077. If the program is written in Basic Assembler 
language and uses CCP-provided macros ($Nxxx), the 
source program must be processed by both the Macro 
Processor and the Basic Assembler. 

The compilation (or assembly) output is a relocatable 
object module that must be link-edited to form a load 
module with a start address of X'8000'. CCP Startup 
accepts only programs that are link-edited to start at 
X'8000'. If compilation and link-editing are to be 
performed as a single step (as they can be, in RPG II, 
COBOL, and FORTRAN IV), the start address is specified 
by using the LINKADD parameter on the //COMPILE 
OCL statement (LINKADD-8000). If compilation and 
link-editing are to be separate steps, the // PHASE Overlay 
Linkage Editor control statement must specify LINKADD 
-X'8000'. Assembling and link-editing Basic Assembler 
programs must always be separate steps. RPG II, COBOL, 
and FORTRAN IV programs can be compiled and link- 
edited either as a single step or as separate steps, as 
determined by: 

RPG II — The entry in column 10 

(Object Output) of the 
RPG II Control Card 
Specifications 

COBOL and FORTRAN - The LINK operand of the 

PROCESS statement 

The maximum size of a user program under Model 15 CCP 
is 32K, including any program-appended storage area for 
DFF, but not including any additional storage for execution 
of memory resident overlay programs. Under 5704-SC2, 
external buffers can be defined and supported. The storage 
required for the external buffers is not included in the 
maximum 32 K program size. See the IBM System/3 
Model 15 System Control Programming Concepts and 
Reference Manual, GC21-5162, for additional information 
on external buffers. 
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Programs which use 5445/3340 disk files must be compiled/ 
link-edited on a system of that disk-file type. This will 
enable the proper data management support to be included 
in the program. 



Notes: 



Programs running directly under Model 15 disk system 
management (not running under CCP) must be link- 
edited to start at X'4000'. A halt occurs if these 
programs are link-edited at X'8000'. 

Programs that use indexed random add disk file 
access (IRA or IRUA — see index entry access value) 
for files that can be shared must be link-edited on a 
system that has been generated to support CCP. 



COBOL and FORI RAN IV-Model 10 and Model 12 CCP 

During generation, the CCP copies the COBOL and/or 
FORTRAN IV communications service subroutines 
(CCPCIO, CCPFIO) to the pack specified by the PPUNIT-xx 
parameter of the $EPLG generation statement for COBOL 
and/or the $EPLG statement for FORTRAN. 

If unit record devices-MFCU, 1442 Card Read/Punch, 
3741 (data mode support only), 5203 or 1403 printers- 
were specified as being supported by the CCP, CCP genera- 
tion also copies special intermediary routines for the unit 
record data management modules to the COBOL or FOR- 
TRAN pack specified by the PPUNIT-xx parameter. These 
routines interface with the standard DSM modules; they 
are not replacements for the DSM modules. 



COMPILING THE PROGRAM-MODEL 10 AND 
MODEL 12 CCP 

Procedures for compiling or assembling a source program 
are given in the appropriate programming language refer- 
ence manual or in the IBM System /3 Models Wand 12 
Control Programming Reference Manual, GC21-7512. 



RPG ll-Model Wand Model 12 CCP 



The COBOL and FORTRAN IV compilers permit you to 
choose, by means of a PROCESS statement: 

1. To produce a relocatable module that can be processed 
in a separate link-editing run (if the program uses unit 
record devices). 

2. To invoke the Overlay Linkage Editor automatically 
to produce a load module (if not using unit record 
devices). (See Link Editing the Program.) 



During generation, the CCP copies the RPG II communica- 
tions service subroutines (SUBR90, SUBR91, SUBR92, and 
SUBR93) to the disk pack specified by the PPUNIT-xx 
parameter of the $EPLG generation statement. This pack 
must be used to compile RPG II programs to run under the 
CCP. 

If unit record devices-MFCU, 1442 Card Read/Punch, 
3741 (data mode support only), 5203 or 1403 printers- 
were specified as being supported by the CCP, the CCP 
also copies special intermediary routines for unit record 
data management modules to the RPG II pack specified 
by the PPUNIT-xx parameter. These intermediary routines 
are named the same as the RPG II unit record data manage- 
ment modules and the RPG II modules are renamed. If 
unit record devices were specified, this pack cannot be used 
to compile RPG II programs to run under disk system 
management (DSM) that use unit record devices. See Link 
Editing the Program, later in this section, for additional 
information. 



Basic Assembler-Model 10 and Model 12 CCP 

During generation, the CCP copies the CCP-provided 
macros ($Nxxx) to the pack specified in the PPUNIT-xx 
parameter of the $EPLG statement (LANG-ASSEM). 

If unit record devices-MFCU, 1442 Card Read/Punch, 
3741 (data mode support only), 5203 or 1403 printers- 
were specified as being supported by the CCP, CCP genera- 
tion also copies special intermediary routines for the unit 
record data management modules to the pack specified 
by the PPUNIT-xx parameter. These routines interface 
with the standard DSM modules; they are not replacements 
for the DSM modules. See Link-Editing the Program for 
additional information. 

If your Basic Assembler program uses the CCP-provided 
macros, both the Macro Processor and the Basic Assembler 
program are required to process the source program prior to 
link editing. The $Nxxx macros must either be on the same 
pack as the Macro Processor or on the system pack. If your 
program does not use the CCP macros, you need only 
assemble and link edit the program. 
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LrNK-EDITING THE PROGRAM-MODEL 10 AND 
MODEL 12 CCP 



Overlay Linkage Editor Control Statements— Model 10 
and Model 12 CCP 



Link-editing is not a separate step when preparing an RPG II 
program to be run under the CCP, since RPG II compilation 
includes link-editing. Link-editing is always a separate step 
in preparing a Basic Assembler program. 

When compiling COBOL and FORTRAN IV programs, 
you can specify that compilation and link editing be a 
single step by means of the LINK operand on the PROCESS 
statement. However, you must not choose to invoke the 
Overlay Linkage Editor automatically for programs that 
access one or more unit record devices (MFCU, 1442 Card 
Read/Punch, 5203 or 1403 printers). 

If the program being prepared was written in COBOL, 
FORTRAN IV, or Basic Assembler and accesses one or more 
unit record devices, you must enter // EQUATE Overlay 
Linkage Editor statements to cause the special CCP-provided 
subroutines to be inserted in the load module between your 
program and the DSM unit record data management modules 
your program uses. These statements must be in the following 
form: 

// EQUATE OLDNAME-$$xxxx,NEWNAME-$Nxxxx 

Figure 9-1 shows the OLDNAME- and NEWNAME- param- 
eters that must be used for various unit record files. Use 
Figure 9-3 and 9-4 to determine which DSM unit record 
data management modules will be used by your COBOL or 
FORTRAN program. 

You must not enter // EQUATE statements if the disk pack 
you are using for link-editing also supports RPG II, since 

the DSM modules have already been renamed. Figure 9-2 
shows the normal RPG II unit record data management 
module names and the CCP intermediary module names. 
Since the intermediary modules have the standard DSM 
module names in this case, no renaming is required. 



The following Overlay Linkage Editor control statements 
are used for COBOL, FORTRAN IV, and Basic Assembler 
programs that use unit record devices (see System/3 
Overlay Linkage Editor Reference IWanua/, GC21-7561, 
for complete descriptions of these statements): 



1. 



Disk pack used for link-editing does not support 
RPG 1 1 for CCP (see Figure 9-1 ): 

// PHASE . . . 

//OPTIONS... 

// EQUATE OLDNAME-$$xxxx,NEWNAME- 
$Nxxxx,UNIT-xx 

// EQUATE OLDNAME-@@xxxx,NEWNAME- 
$$xxxx,UNIT-xx 

// INCLUDE NAME-user program name,... (or relo- 
catable object deck) 

// INCLUDE NAME-$$xxxx,. . . 

// INCLUDE NAME-$Nxxxx, . . . 



//END 

The INCLUDE statements can be eliminated if: 

a. The data management modules reside on the same 
pack as the Overlay Linkage Editor. 

b. The UPACK- keyword is specified on the // 
OPTIONS statement. 

Example: Assume the following: 



Program SAMPLE resides in the relocatable library 
on R1. 

Program SAMPLE uses the printer under CCP. 
The Overlay Linkage Editor and the data manage- 
ment modules reside on the same pack (R1). 
R2 is the pack to be used during a CCP run. 



The required Overlay Linkage Statements are: 

// PHASE NAME-SAMPLE,UNIT-R2,RETAIN-P 

// OPTIONS MAP-XREF 

// INCLUDE NAME-SAMPLE,UNIT-R1 

// EQUATE OLDNAME-$$LPRT,NEWNAME-$NLPRT 

// EQUATE OLDNAME-@@LPRT,NEWNAME-$$LPRT 

//END 
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MODEL 10 AND MODEL 12 UNIT 
RECORD DATA MANAGEMENT 
FUNCTION 


FIRST //EQUATE 


SECOND //EQUATE 


OLDNAME- 


NEWNAME- 


OLDNAME- 


NEWNAME- 


1442 card read/punch 


$$ARFF 


$NARFF 


@@ARFF 


$$ARFF 


5203/1403 printer 


$$LPRT 


$NLPRT 


@@LPRT 


$$LPRT 


5424 MFCU read/punch 


$$MFRU 


$NMFRU 


@@MFRU 


$$MFRU 


Read/print 


$$IVIFRP 


$NMFRP 


@@MFRP 


$$MFRP 


Read only 


$$MFRD 


$NMFRD 


@@MFRD 


$$MFRD 


Punch only 


$$MFPU 


$NIVIFPU 


@@IV1FPU 


$$MFPU 


Print only 


$$MFPR 


SNMFPR 


@@MFPR 


$$MFPR 


Print/punch 


$$MFPP 


$NMFPP 


@@MFPP 


$$MFPP 


Full function 


$$IVIFFF 


$NMFFF 


@@MFFF 


$$MFFF 


3741 Read 


$$CPIP 


$NCPIP 


@@CPIP 


$$CPIP 


Punch 


$$CPOP 


$NCPOP 


@@CPOP 


$$CPOP 



Figure 9-1. Unit Record Data IVIanagement Names to be used in // EQUATE Overlay Linl<age Editor Statements for IVI'odel 10 and IVIodel 12 
COBOL, FORTRAN IV, and Basic Assembler Programs Using Unit Record Devices (non-RPG II Disk Pack) 



Disk pack used for link-editing supports RPG II 
for COP (see Figure 9-2): 

// PHASE . . . 

// OPTIONS . . . 

// INCLUDE NAME-user program name ... (or 

relocatable object deck) 
// INCLUDE NAME-$$xxx,... 
// INCLUDE NAME-$$Uxxx,... 



The required Overlay Linkage Editor statements are: 

// PHASE NAME-SAMPLE,UNIT-R2,RETAIN-P 

// OPTIONS MAP-XREF 

Object deck 

// INCLUDE NAME-$$LPRT,UNIT-R1 

// INCLUDE NAME-$$UPRT,UNIT-R1 

// END 



//END 

* See note under 1. 

Example: Assume the following: 

a. Program SAMPLE is a relocatable object deck. 

b. Program SAMPLE uses the printer under CCP. 

c. The Overlay Linkage Editor resides on a pack 
separate from the data management modules. 

d. The pack to be used during the CCP run resides 
on R2. 



Link-Editing a Program to Run Under DSM— Models 10 
and 12 

Special considerations apply to link-editing programs to 
run directly under Model 10 and Model 12 DSM if unit 
record devices are used in the programs and are also sup- 
ported by the CCP. 



RPG ll~Model 10 and Model 12 CCP 

If unit record devices are being used by both the CCP 
RPG II programs and the non-CCP RPG 11 programs, you 
must use separate disk packs for compiling the two different 
types of programs. If unit record devices are not being 
used in both the CCP environment and the non-CCP environ- 
ment, the same pack can be used for compiling both types. 
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Model 10 and Model 12 


Unit Record 


CCP 


Unit Record Data 


Data Management 


Intermediary 


Management Function 


Module 


Module 


1442 card read/punch 


$$URFF 


$$ARFF 


5203/1403 printer 


$$UPRT 


$$LPRT 


5424 MFCU read/punch 


$$UFRU 


$$MFRU 


Read/print 


$$UFRP 


$$MFRP 


Read only 


$$UFRD 


$$MFRD 


Punch only 


$$UFPU 


$$MFPU 


Print only 


$$UFPR 


$$MFPR 


Print/punch 


$$UFPP 


$$MFPP 


Full function 


$$UFFF 


$$MFFF 


3741 Read 


$$UPIP 


$$CPIP 


Punch 


$$UPOP 


$$CPOP 



Figure 9-2. Unit Record Data Management Names for All Languages, 
if the Pack Also Supports RPG II for Model 10 and 
Model 12 CCP. // INCLUDE Overlay Linkage Editor 
statements are required if the Overlay Linkage Editor is 
on a different pack from these modules. 



Model 10 and Model 
12 Data Management 
Module Name 



Language Statements as they 
Appear in a COBOL Program 



$$ARFF 
$$LPRT 
$$MFRU 

SSMFRP 

$$MFFF 



$$MFRD 

$$MFPU 
$$MFPR 
$$MFPP 

* Hopper 
same in 



UR- 
UR- 
UR- 

UR- 

UR- 

UR- 

UR- 

UR- 

UR- 

UR- 

UR- 

UR- 

UR- 



1442-RDorUR-1442-PU 
1403-n:nnn or UR-5203-n-nnn 
5424 



5424 
5424 
5424 
5424 
5424 
5424 
5424 
5424 
5424 
5424 



j^(-RD-n 
jPj-PU-n 
Isi-RD-n 
jP(-PR-n 
|^[-RD-n 
P|-PU-n 

Sf 

k( 
^) 



PR-n 

RD 

PU 

PR 

PI 



(P or S) and association value (n) are the 
each statement. 



Figure 9-3. Unit Record Data Management Used by Model 10 and 
Model 12 COBOL Programs 



Model 10 and Model 


Device Option Statements 


12 Data Management 


and Language Statements Used 


Module Name 


in a FORTRAN Program 


$$ARFF 


// READ DEVICE-1442 




READ (9, .. .) ... 




. // PUNCH DEVICE-1442 




WRITE (9, ...)... 


$$LPRT 


//PRINT DEVICE- {™| 
WRITE (3, ...)... 






CALLP1403( .. . ) / 




CALL SI 403 { ...) [ 1403 




CALL SP1 403 (...M 




CALL PRINT ( ...) 1 




CALL SKIP (...) [ 5203 




CALL SPACE {...)) 


$$MFRU 


II READ DEVICE-MFCU2 




// PUNCH DEVICE-MFCU2 




CALL READ (...) 




CALL PUNCH (...) 


$$MFRP 


// READ DEVICE-MFCU2 




// PRINT DEVICE-MFCU2 




READ (2,...) 




WRITE (2, . . . ) 




CALL READ ( ...) 


SSIVIFFF 


// READ DEVICE-MFCU2 




// PUNCH DEVICE-IVIFCU2 




// PRINT DEVICE-MFCU2 




READ (2, . . . ) 




WRITE (2,...) 




CALL READ (...) 




CALL PUNCH (...) 


$$MFRD 


// READDEVICE-MFCU1 




READd ) 




// READ DEVICE-MFCU2 




READ (2,...) 




CALL READ( . ..) 




CALL STACK (...) 


$$MFPU 


// PUNCH DEVICE-MFCU2 




WRITE (2,...) 




CALL PUNCH (...) 




CALL STACK (...) 


$$MFPR 


// PRINT DEVICE-MFCU2 




WRITE (2,...) 


$$MFPP 


// PRINT DEVICE-MFCU2 




// PUNCH DEVICE-MFCU2 




WRITE (2,...) 




CALL PUNCH (...) 



Figure 9-4. Unit Record Data Management Used by Model 10 and 
Model 12 FORTRAN Programs 
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COBOL, FORTRAN IV, and Basic Assembler-Model 10 
and Model 12CCP 

Different considerations apply to link editing COBOL, 
FORTRAN, and Basic Assembler programs to run directly 
under Model 10 and Model 12 DSM, depending on whether 
or not the disk pack used for link-editing contains the CCP 
intermediary routines for RPG II unit record data 
management. 



Pack Not Containing RPG II CCP Intermediary Modules: If 
unit record devices are used, no special INCLUDE or 
EQUATE statements are required for unit record data 
management modules. Therefore, automatic link editing 
can be done when compiling COBOL and FORTRAN pro- 
grams. 



Pack Containing RPG II CCP Intermediary Modules: If unit 
record devices are to be used, a separate link edit step is 
required. The required Overlay Linkage Editor control 
statements are: 

// PHASE ... 
//OPTIONS.. 

// EQUATE OLDNAME-$$xxxx,NEWNAME-$$Uxxx 
// INCLUDE NAME-user program name,... (or relocatable 
object deck) 
* // INCLUDE NAME-$$Uxxx,... 



// END 

* See note under 1. 

Example: Assume the following: 

a. Program SAMPLE resides in a relocatable library 
on R1. 

b. Program SAMPLE uses the printer. 

c. The Overlay Linkage Editor resides on a pack 
different from the data management modules. 

d. The pack to be used for CCP execution resides on 
R1. 

The required Overlay Linkage Editor statements are: 

// PHASE NAME-SAMPLE,UNIT-R1,RETAIN-P 

// OPTIONS MAP-XREF 

// EQUATE OLDNAME-$$LPRT,NEWNAME-$$UPRT 

// INCLUDE NAME-SAMPLE,UNIT-R1 

// INCLUDE NAME-$$UPRT,UNIT-R1 

//END 



COPYING THE LOAD MODULE 

During CCP execution, the programs to be executed 
under the CCP must be on either the pack from which the 
CCP was loaded (// LOAD $CCP,xx) or the pack from 
which DSM was initially loaded (IPL'ed). If the compile and 
link edit processes did not cause the program module to 
be located in the object library of either of these packs, 
you must execute the Library Maintenance program to 
copy the module to the appropriate pack. 



MAKING ASSIGNMENTS 

To permit a new program to be executed under the CCP, 
the program must be defined in an assignment set. A 
// PROGRAM statement and possibly other statements must 
be added to at least one of the assignment sets, and an 
Assignment Build run must be made (see CCP System 
Reference Manual). 

You must provide the following information about your 
program to the person responsible for maintaining the CCP 
assignment sets: 

• If the program uses the 3270 Display Format Facility: 

- Number of terminals in the program that use DFF 

- Number of display formats used by the program 

- Size of the largest Field Descriptor Table for display 
formats used by the program, rounded up to the next 
multiple of 256 (the size of this table is given in the 
printed output of the Display Format Generator) 

Note: See Assignment in CCP System Reference Manual 
for an example of calculating storage sizes. 

• Disk file usage— disk file organizations and processing 
methods used (see Disk File Considerations); are disk 
files sharable (see Index sntry disk file sharing)! 

• Input and output communications record area sizes. 

• Terminals used by the program and whether they are 
requiredby the program in order to run or acquired by 
the program as it is running. 

• Terminal attribute sets required for each terminal to be 
used In your program. 

• Program type-SRT, MRT, never-ending, dedicated 
(runalone), reusable-lf MRT, how many terminals can 
the program service at one time? (Dedicated and 
reusable types are defined for Models 10 and 12.) 
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• Program name. 

• Programming language used. 

• The unit record devices used: 

- 5203 Printer (Models 10 and 12) 

- 1403 Printer 

- MFCU 

- MFCIVI (Model 15 only) 

- 1442 Card Read Punch 

- 2501 Card Reader (Model 15 only) 

- 3741 Data Station Model 1 or 2 or Programmable 
Work Station Model 3 or 4 

• Is data allowed with the program request? 

• Whether or not this is a CCP/Sort program (5704-SC2 
only). 

• Whether or not you want a message sent to a requesting 
terminal when either you release the terminal or your 
program goes to end of job. 

• The priority of this program when executing (5704-SC2 
only). 

• How much additional storage is desired for execution 
of memory resident overlay programs (Model 15). 

• Whether or not this program is in the object library at 
CCP startup. 

• If your program is written in either RPG 1 1 or FORTRAN 
and disk file buffer sharing is allowed (Models 1 and 1 2). 



UNIT RECORD FILE CONSIDERATIONS-MODEL 10 
AND MODEL 12 CCP 

The following considerations apply to use of unit record 
devices by programs running under the CCP and between 
the CCP and non-CCP program levels of a DPF system: 

• A unit record device (1442, MFCU, 3741, 1403, and 
5203) cannot be shared by programs running under 
the CCP and cannot be shared by programs running in 
opposite levels of a DPF system. If the printer is 
spooled in the CCP program level on a Model 12, the 
printer can be shared by other programs in the CCP 
program level. If your CCP application program uses 
unit record devices, the CCP allocates the devices to 
your program before it is allowed to run. Your program 
keeps control of the devices until it terminates. If no 
program running under the CCP (or in the process of 
being loaded) requires a unit record device, the system 
operator can allocate the use of unit record devices to 
the non-CCP program level in a DPF system. 



• You must not use the printer/keyboard (console) 
under the CCP except as a communications device, 
using CCP operations. 

• A program using unit record devices compiled to run 
under the CCP will not run on a non-CCP system. 

See Link-Editing tfie Program, earlier in this chapter, for 
additional considerations for using unit record devices in 
COBOL, FORTRAN, and Basic Assembler programs. 



UNIT RECORD FILE CONSIDERATIONS-MODEL 15 
CCP 

The following considerations apply to use of unit record 
devices (1403 Printer; MFCU; MFCM; 2501 Card Reader; 
3741 Model 1 and 2 Data Station and Model 3 and 4 
Programmable Work Station; 1442 Card Read Punch) by 
programs running under CCP and among the CCP partition 
and non-CCP partitions: 

• If your application program uses unit record devices, 
CCP allocates the devices to your program before your 
program is allowed to run. Your program retains control 
of the devices until it terminates. 

• In general, unit record devices cannot be shared by 
programs running under CCP; they can never be shared 
among programs running in the CCP partition and 
programs running in a non-CCP partition. If, however, 
the unit record device is being spooled in the CCP 
partition, the device is always available to CCP, but 
only to one application program at a time. Also, the 
printer may be shared, even when it is not spooled, by 
CCP application programs for which PRINTER -SHR 
is specified in the PROGRAM assignment statement. 

• The CRT/Keyboard (console) can be used only as a 
communications device, that is, CCP operations must 
be used to perform I/O to the console. 

• If you request a program that uses a unit record device 
other than a printer (that is, a punched-card device or a 
3741) and that device is not immediately available to 
the program, your request is rejected, whether or not a 
queue command is in effect. 
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DISK FILE CONSIDERATIONS 

Models 10 and 12 Considerations 

Tlie following considerations apply to the use of disk files 
by programs running under Model 10 and 12 COP: 

Multivolume Files: Multivolume disl< files are not supported 
under COP. 



Online Files: All files available to programs on the current 
run of COP must be online (mounted on a 5444, 5445, or 
3340) and described by Fl LE OCL statements at CCP 
startup time. 



in subsequent runs. See the CCP System Operator's Guide, 
GC21 -7581, for a description of $CCPRB; the Model 12 
SCP Reference Manual, GC21-5130, for a description of 
$RINDX. 



Accessing Indexed Sequential Add and Ordered Indexed 
Files: Once an indexed sequential add or an ordered 
indexed file load is done by a program running under CCP, 
the file cannot be accessed by other programs during the 
CCP run until the program that first accesses the file closes 
the file. 



Sharing Files Between Program Levels: The rules for 
sharing disk files between program levels of a DPF system 
are: 



Disk File Names: If two or more programs that are meant 
to execute in the same CCP run reference the same disk 
file, the file name used in each of those programs must be 
the same (except if symbolic files are used - see DISKFILE 
and SYMFILE assignment statements in the CCP System 
Reference Manual, GC21-7588, for additional information). 



CCP Program Level 

Input file 
Update file 
Add file 
Load file 



Other Program Level 

Can retrieve and update. 
Can retrieve. 
Cannot process file. 
Cannot process file. 



Opening and Closing of Files: All disk files described by 
FILE and matching DISKFILE statements are opened during 
CCP startup according to the file organization and access 
methods specified at assignment time (see Determining the 
Disk File Access Value in this chapter). All files are closed 
during CCP shutdown. 



Index Sort: If required, the index sort for index files is 
done during CCP shutdown. 



Direct Files: A program running under CCP cannot create 
a direct file. When using a direct file, at least a dummy 
file (no records) must exist prior to the CCP run. 



Consecutive Updates to the Same Record: When file 
sharing is allowed (specified by the FSHARE parameter on 
the $EFAC generation statement), do not attempt to 
update the same record in succession without an intervening 
read of that same record within the program. 



Accessing Records Added to an Indexed File: There are 
special considerations when using certain file organizations 
and processing methods during a CCP run. Figure 9-5 
illustrates special considerations when records are added to 
an indexed file during a CCP run. 



Abnormal Termination: If CCP terminates abnormally (for 
example, because of a power failure, processor check, or 
U-halt), CCP does not automatically close files. When an 
abnormal termination of CCP occurs, the CCP disk file 
recovery programs ($CCPRB for a Model 10, $RINDX for 
a Model 12) can be used to close all disk files, and optionally 
can be used to update the necessary file pointers so that 
records added during the previous CCP run can be accessed 



Indexed Load Files: If a disk file, defined as indexed-load 
access (access value 10 or lOU), is not loaded during a CCP 
run, the file exists after CCP shutdown but contains no 
records. 



Master Index: A master index for 5444 disk files is built 
by CCP based on the MSTRINDX keyword of the 
DISKFILE assignment statement (see the CCP System 
Reference Manual, GC21-7588). Therefore, you should 
not specify a master index in your application programs. 



Adding to a File by Two Programs: Two programs 
actually adding to the same file cannot run concurrently. 
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Program 1 (PI) 

Accesses old records 
in indexed file, FILEX, 
and adds new records to 
the file (access value 
IRAor IRUA). 



Program 2 (P2) 


Accesses old records 


(access value IR or 


IRU). 



{Note: Old records are records in the file prior to CCP startup. 



Program 3 (P3) 

Accesses old records and 
records added during this CCP 
run, but does not add records 
itself (access value IRANA or 
IRUANAforModel 10 and 
Model 12 CCP, IRAor IRUA 
for Model 15 CCP). 



Example 1: 

PI loaded and executing (adding records) 
P2 loaded while PI is executing 
P3 loaded while PI is executing 



FILEX 




not found 



Example 2: 

PI loaded, adds records, goes to EJ 

P3 loaded, goes toEJ 

PI reloaded, adds more records, goes to EJ 

P3 reloaded 

P2 loaded _ , 

Note (Models 10 and 12): Another program 
of the same type as PI cannot be loaded while 
PI is executing. Two programs of this type 
cannot be executing concurrently. 



FILEX 




Figure 9-5. Accessing Added Records in Indexed Files Under the CCP. 



Program Preparation 9-9 



Consecutive Output Files: If a file is defined witli an 
access value CO (consecutive output), the program loading 
that file will overlay records loaded previously during the 
same CCP run. For example, suppose program 1 loads 
file 1 and goes to end of job. If program 1 is loaded again, 
any records added during the second execution will overlay 
records loaded during the first execution. 



Update Flies: If one program in an assignment set 
processes a file in update mode, that file is treated as an 
update file at CCP startup. Therefore, the following could 
occur: 

• Program 1 processes file 1 as a direct update (DU). 

• Program 2 processes file 2 as direct update. 

• At CCP startup, file 1 and file 2 are made identical by 
a FILE statement (// FILE NAME-FI LEI, . .., 
LABEL-FILE2). 

In this case, CCP startup cannot open file 2. Therefore, if 
different programs are to access the same file in update 
mode, they must both reference that file by the same 
name. 



Opening and Closing of Files: All disk files described by 
FILE and matching DISKFILK statements are opened 
during CCP startup according to the file organization and 
access method specified at assignment time (see Determining 
the Disk File Access Value in this chapter). All files are 
closed during CCP shutdown. 



Index Sort: The index sort for index files is done by using 
$CCPCL while CCP is running. CCP programs can access 
the file again during the current CCP run if the system 
operator executes the $CCPOF' facility. See the IBM 
System/3 Model 15 CCP System Reference Manual, 
GC21 -7620, and the IBM System/3 Model 15 CCP System 
Operator's Guide, GC21-7619, for more information on 
$CCPCLand$CCPOP. 



Accessing Records Added to an Indexed File: Programs 
using certain nonadd disl< access methods can access 
records added to an indexed file during the current CCP 
run even though the index sort has not been performed. 
However, the programs using the add access method must 
either CLOSE (for COBOL and Assembler) the file, or 
terminate (for RPG II) before the program using the nonadd 
access method can open and use the file. These nonadd 
access methods are: 



Model 15 Considerations 

The following considerations apply to the use of disk files 
by programs running under IVIodel 1 5 CCP: 



Multlvolume Files: Multivolume disk files are not supported 
under CCP. 



Online Files: All files available to programs on the current 
run of CCP must be online (mounted on a 5444, 5445, 
3340, or 3344) and described by FILE OCL statements at 
CCP startup time. 



Disk File Names: Different names can be used for the 
same file if the names are related to the file label by using 
the NAME and LABEL parameters of the FILE OCL state- 
ment (see IBM System/3 Model 15 System Control Pro- 
gramming Reference Manual, GC21-5077, if operating 
under 5704-SC1 ; or IBM System/3 Model 15 System Control 
Programming Concepts and Reference Manual, GC21-5162, 
if operating under 5704-SC2, for additional information). 



• Consecutive input (CG) 

• Consecutive update (CU)-5704-SC2 only 

• Direct input (DG) 

• Direct input and update (DU) 



Unless the file is closed and reopened via the system 
operator $CCPOP/$CCPCL facility causing the index sort 
to be performed, the programs using nonadd access methods 
other than those in the preceding list cannot access records 
added to an indexed file during the current CCP run. See 
Determining the Disk File Access Value in this chapter for 
a list of the disk file access methods. 

Figure 9-5 illustrates special considerations when records 
are added to an indexed file during a CCP run. 
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Abnormal Termination: If CCP terminates abnormally 
(for example, because of a power failure, processor check, 
or U-halt), CCP does not automatically close files. When 
an abnormal termination of CCP occurs, the CCP disk 
file recovery program $RINDX, can be used to close all 
disk files and, optionally, update the necessary file pointers 
so that the records added during the CCP run that abnor- 
mally terminated can be accessed in, subsequent runs. See 
the IBM System/3 Model 15 System Control Programming 
Reference Manual (5704-SC1), GC21-5077, or the IBM 
System/3 Model 15 System Control Programming Concepts 
and Reference Manual (5704-SC2), GC21 -51 62, for a 
description of the use of the file recovery programs. 



Basically, the SHARE value of the FILE OCL statement 
has effect only across partitions, while the FILES param- 
eter of the PROGRAM assignment statement has effect 
within and across partitions. The relation between these 
parameters is shown in Figure 9-6; the symbol • indicates 
that the program will be allowed to start. For example, if 
a batch program in a partition is using a file with SHARE- 
NO, then a program (including CCP startup) in another 
partition using that same file cannot be initiated. If CCP 
is started with SHARE-NO specified on the FILE OCL 
statement, that file is still considered shareable within 
CCP; the SHR/NOSHR value of the Fl LES parameter in 
the PROGRAM assignment statement determines whether 
the file can be shared and a second program initiated. 



Sharing Files Among Partitions: When operating under 
control of 5704-SC1, the rules for sharing disk files be- 
tween partitions are: 



Direct Files: A program can create a direct file if a direct 
output access file exists in the assignment set. 



CCP Partition Other Partition 

Input file Can retrieve and update. 

Update file Can retrieve; can update if CCP 

update program processing this 
file is not currently executing. 

Add file Can retrieve or update nonadd 

records if CCP program adding 
records is not currently executing. 
Can retrieve or update added 
records if CCP program adding 
records has gone to end of job 
and the system operator 
$CCPOP/$CCPCL facility has 
been run. 

Load file Cannot process file. 



Consecutive Updates to the Same Record: When file 
sharing is allowed, do not attempt to update the same 
record in succession without an intervening read of that 
same record within the program. 



Updating or Adding to Disk Files: When updating or adding 
to disk files, do not issue an Accept Input operation be- 
tween the reading and writing of a disk record if you intend 
to update or add the record. 



Indexed Load Files: If a disk file defined as indexed-load 
access (access value 10 or lOU) is not loaded during the 
CCP run, the file exists after CCP shutdown but contains 
no records. 



When operating under control of 5704-SC2, the rules for 
sharing disk files using compatible access methods among 
partitions are determined by the SHARE parameter of 
the Fl LE OCL statement and the Fl LES parameter of 
the PROGRAM assignment statement. The compatible 
access methods allowed with file sharing across partitions 
are defined in the IBM System/3 Model 15 System Con- 
trol Programming Concepts and Reference Manual, 
GC21-5162. When operating under CCP, the compatible 
access methods allowed with file sharing across par- 
titions are defined in Model 15 CCP File Sharing Con- 
siderations in this chapter. 



Master Index: If operating under 5704-SC1 , a master 
index for 5444 disk files is built by CCP based on the 
MSTRINDX keywork of the DISKFILE assignment state- 
ment (see the CCP System Reference Manual, GC21-7620). 
Therefore, you should not specify a master index in your 
application programs. 
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Consecutive Output Fifes (5704-SC1 Only}: If a file in a 
FORTRAN IV program is defined with an access value CO 
(consecutive output), tlie program loading that file will 
overlay records loaded previously during the same CCP 
run. For example, suppose program 1 loads file 1 and 
goes to end of job. If program 1 is loaded again, any 
records loaded during the second execution will overlay 
records loaded during the first execution. More than one 
CO access can be done to a file and no records are overlaid 
in RPG II, COBOL, and Assembler programs. 



Consecutive Output Files (5704-SC2 Only): If a file is 
defined with an access value of CO (consecutive output), 
the program loading that file will overlay records loaded 
previously during the same CCP run. For example, suppose 
program 1 loads file 1 and goes to end of job. If program 1 
is loaded again, any records added during the second exe- 
cution will overlay records loaded during the first execution. 



Program Trying to 
Start Witii Same File 


OGLor 
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Current File Status 


Statement 
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During startup, CCP is considered a batcli program. 

The file is assigned to a user tasl< that is currently executing. 

The file is not assigned to any user task that is currently executing. 



Figure 9-6. File Sharing Across Partitions 
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Model 10 and Model 12 CCP File Sharing Considerations 



Model 15 CCP File Sharing Considerations 



The following considerations apply when file sharing is 
allowed under Model 10 and Model 12 CCP (FSHARE 
parameter on the $EFAC generation statement): 

• Programs running concurrently under the CCP can 
update the same file. CCP protects the block of disk 
sectors containing the record to be updated until the 
program releases the block of sectors by writing the 
block to disk or reading another block. When programs 
are concurrently updating a disk file, a potential 
"lockout" condition could occur if a program does not 
release a block of sectors. 

For example, programs that read and update two or 
more files they share can be locked out of files if the 
following sequence of events occurs: 

1 . Program A reads from file 1 . 

2. Program B reads from file 2. 

3. Program A attempts to read from the same part 
of file 2, but cannot, because program B has not 
released the sectors. Likewise, if program B 
attempts to read from the same sectors of file 1 
that were read by program A, it cannot, because 
program A has not released the sectors. 

Because of this possibility, you should either code your 
program so that it does not do consecutive reads from 
different shared files without doing an intervening write 
to the first file, or if consecutive reads cannot be avoided, 
you should inform those personnel responsible for CCP 
assignments that the files should not be shared. 

• When updating files, do not attempt to update (write) 
the same record in succession without doing an inter- 
vening read of that same record within the program. 
If you do, the task will be terminated. 

• Programs defined at assignment time with access values 
IRUANA or I RAN A can run concurrently (see Deter- 
mining the Disk File Access Value for the meaning of 
IRUANA and IRANA). 

• Two IRUANA or IRANA programs can access the same 
file concurrently. 

• If a program defined as IRUANA or IRANA attempts 
to add records, it will be cancelled by the CCP. 

Figure 9-7 shows how two programs attempting to use the 
same disk file will interact. 



Model 15 CCP allows concurrent access to a file by two or 
more programs whenever sharing is logically possible. If a 
program requires exclusive use of a file, NOSHR must be 
specified for the Fl LES parameter of the // PROGRAM 
assignment statement. 

CCP allows programs running concurrently to update or 
do indexed adds to the same disk file. CCP protects the 
block of sectors containing the record to be updated until 
the program releases the block of sectors by writing the 
block to disk or reading another block. CCP protects the 
add area of an indexed file when an add is requested. The 
file is not protected if a record-not-found condition occurs. 
This could cause the following sequence of conditions to 
occur: A record-not-found condition, followed by an 
add of that record, which might give a duplicate record 
condition if the record had been added by another 
CCP task. When programs are concurrently sharing a disk 
file, a potential lock-out condition could occur if a 
program does not release a block of sectors. 

Figures 9-8 and 9-9 show how two programs attempting to 
use the same disk file will interact. The following consider- 
ations and exceptions apply to sharing of nonexclusive disk 
files: 

• An ordered indexed load must precede all other access 
and must be done only once during a CCP run. 

• Double buffering is never done when files are being 
shared. CCP treats any double buffer accesses as 
single buffer accesses. 

• A file processed as unordered indexed load can be 
shared serially, in time, with other unordered load 
accesses; however, no other types of file access are 
allowed during the CCP run. 

• Consecutive load and consecutive add accesses cannot 
be done concurrently to the same disk file and neither 
access can be done concurrently with any other access 
of the same file. 

• Indexed sequential addition to a file (with or without 
update) cannot be done concurrently with another 
access to that file. Indexed sequential addition cannot 
be preceded by any other indexed add access that 
actually adds records to the file, unless the system 
operator has initiated the $CCPOP/$CCPCL facility. 

• Consecutive output (load) to an existing file is treated 
by CCP as consecutive add, except in FORTRAN IV. 
Therefore, consecutive output can be done more than 
once to the same file during a CCP run, with results the 
same as consecutive add. In FORTRAN IV, consecutive 
output can be done only once to a file during a CCP run. 
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• An indexed file that has been added to, but has not 
yet gone through a key sort, can contain records that 
cannot be accessed by non-add indexed data manage- 
ments (see Disk File Considerations). 

• Unlike indexed random add data managements (IRA 
and IRUA), indexed sequential add data managements 
(ISA and ISUA) do not search the area of added records. 
Therefore, a file opened ISA or ISUA can later be 
opened IRA or IRUA, but not vice versa. To open a 
file ISA or ISUA after a file has been opened IRA or 
IRUA, the system operator must execute the 
$CCPOP/$CCPCL facility. 

• Programs that read and update (and/or add) to two or 
more files they share can be locked out of a file if the 
following sequence of events occurs: 

1 . Program A reads from file 1 . 

2. Program B reads from file 2. 

3. Program A attempts to read from the same part 
of file 2, but cannot, because program B has not 
released the sectors. Likewise, if program B 



attempts to read from the same sectors of file 1 
that were read by program A, it cannot, because 
program A has not released the sectors. 

Because of this possibility, you should either code your 
program so that it does not do consecutive reads from 
different shared files without doing an intervening write 
to the first file, or if consecutive reads cannot be avoided, 
you should inform those personnel responsible for CCP 
assignments that the files should not be shared. 

If an MRT-NEP program uses file sharing and issues an 
accept input with no outstanding invite inputs, the disk 
file sectors protected from file sharing after the disk 
file was read are no longer protected. Under these 
conditions, if you try to add or update files, you get 
a disk error (invalid address). Before attempting to 
update files accessed by an MRT-NEP following an 
accept input, you must first retrieve the record to be 
updated. 

When updating files, do not attempt to update (write) 
the same record in succession without doing an inter- 
vening read of that same record within the program. 
If you do, the user task terminate with a OH halt. The 
program logic should be reviewed and corrected. 
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Figure 9-7. Sharing Access to Disit Files-Model 10 and Model 12 CCP 
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^*\.,..__^ File Already in Use 




IS 










^^\JOpen) As: 




ISL lA 










Attempting ^>^^^ 


CA 


IR ISU IRA 


ISA 


DO 






to use (Open) File as!\„_^ 


CO 


CU CG 10 IOU IRU ISUL IRUA 


ISUA 


(New 
File) 


DU 


DG 


CO,CA 
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S S N N N N N 
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CU 
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Y Y N N N N N 
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CG 
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Y Y S N Y Y Y 
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N N@ N# N N@ N@ N@ 
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N N N S N N N 
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IS, ISL, IR, IRU 
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N Y S N Y Y Y 
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ISU, ISUL 
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N Y S N Y Y Y 
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lA, IRA, IRUA 
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N Y S N Y Y Y 
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ISA, ISUA 
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N S S N S S N# 


N# 
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DO 
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Y* Y* N N N N N 
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Y* 


Y* 


Y* 


DU 


S 


Y Y S N Y Y Y 


S 


Y 


Y 


Y 


DG 


S 


Y Y S N Y Y Y 


S 


Y 


Y 


Y 




Y 


— Access permitted. 












Y* 


— Direct output to an old or previously used file is 


treated as direct update. 








N 


— Access not permitted. 












N# 


— A second access is not permitted unless the file has been c 


losed and reopened by 








the system operator. 












N@ 


- 10 must be first access of file if used. 












S 


- Serialized access. First access must CLOSE with 
OPEN. 


in progra 


n before second 


may 





Figure 9-8. Sharing Access to Disk Files-Model 15 CCP <5704-SC1) 
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Attempting 
to Use (Open) 
File as: 



CO 



CA 



CU 



CG 



10 



IS 



ISL 



IR 



IRU 



ISU 



ISUL 



IRA 



IRUA 



ISA 



ISUA 



DO 



DU 



DG 



KEY 



CO 



CA 



CU 



Y 



N 



N 



N 



N 



N 



N 



N 



N 



N 



N 



File Already in Use (Open) As: 



CG 



lO 



N 



N'* 



lOU 



IS 






ISL 






IR 






IRU 


lA 




ISU 


IRA 


ISA 


ISUL 


IRUA 


ISUA 



DO 



Y 



IMS 



N 



N 



N 



Y' 



Y 



Yi 



Y 



yl 



Y 



Y 



Y2 



N 



N 



Y> 



Y^ 



t^ 



N 



N 



Y — Access permitted. 
N — Access not permitted. 

S - Serialized access. First access must CLOSE within program before 
second may OPEN. 



N 



N 



N 



Y^ 



DU 
DG 



N 



Y 



_Y_ 
Y 



Y' 



Y' 



'piles accessed using the Index sequential add access method under which adds have been made cannot be reopened using ISA 
unless the key sort has occurred. If any adds have been made and the key sort has not occurred, only random access methods 
can be used to add to the file. 

^The added records are not accessed If random add has occurred. 

^Direct output to an old or previously used file is treated as direct update. 

'*A second access is not permitted unless the file has been CLOSED and OPENED by the system operator. 

'if ordered indexed load access method is used. It must be the first access method used to access the file. 



Figure 9-9. Sharing Access to Disk Files-iVlodel 15 CCP (5704-SC2) 
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Determining the Disk File Access Value 

When specifying the FILES keyword for the PROGRAM 
assignment statement (see CCP System Reference Manual), 
an access value must be given for each disk file. The access 
value indicates the mode of access of a disk file used by an 
application program. You should inform the person respon- 
sible for completing the CCP assignments of the type of 
organization and the access value for each disk file you 
use in your program. You can determine the access value 
for RPG II, COBOL, and FORTRAN disk file processing 
from Figures 9-1 0, 9-1 1 , and 9-1 2. The access value symbols 
and their meanings are: 

CO — Consecutive Output 

CG — Consecutive Input 

CU — Consecutive Update 

CA — Consecutive Add 

DG — Direct Input 

*DGA — Direct Input Binary Relative Record Numbers 

DU — Direct Input and Update 

*DUA — Direct Input and Update, Binary Relative 
Record Numbers 

DO - Direct Output (valid only for Model 15 CCP) 

IS — Indexed Sequentiallnput Only 

ISA — Indexed Sequential Input and Add 

ISL — Indexed Sequential Input with Limits 

ISU — Indexed Sequential Input and Update 

ISUL - Indexed Sequential Input and Update with 
Limits 

ISUA — Indexed Sequential Input, Update, and Add 

lA — Indexed Sequential Add only 

IR — Indexed Random Input Only 

IRA - Indexed Random Input and Add 

IRU — Indexed Random Input and Update 

IRUA - Indexed Random Input, Update, and Add 

10 — Ordered Indexed Load 

lOU — Unordered Indexed Load 

IRANA — Records which were added to the file by another 
program that has gone to end of job in the 
current CCP run will be read using Indexed 
Random Input and Add (IRA), but no records 
will be added. 
**IRUANy\- Records which were added to the file by 

another program that has gone to end of job 
in the current CCP run will be read and pos- 
sibly updated using Indexed Random Input, 
Update, and Add (IRUA), but no records will 
be added. 
* Valid for Model 10 and Model 12 CCP. For Model 15 

CCP, use DG or DU. 
** Valid for Model 10 and Model 12 CCP. For Model 15 

CCP, use I R A or I RUA. 



¥t* 
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The valid combinations of disl< file organization (specified 
in the // DISKFILE assignment statement) and method of 
access (specified in the // PROGRAM assignment state- 
ment) are shown in the following chart. 



Method of 
Access 

(// PROGRAM) 


Organization (// DISKFILE) 


Sequential Indexed 


Direct 


CO&CA 


YES NO 


NO 


CU 


YES NO 


YES 


CG 


YES YES 


YES 


Indexed Access Methods 


NO YES 


NO 


DO 


NO NO 


YES 


DUand DUA 


YES YES 


YES 


DG and DGA 


YES YES 


YES 
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INDEXED FILES 



3 

■D 









Type of 




^ 
o 


Processing 




% 




/> by Key, no ADD 


3! 
> 




by Key, no ADD 




by Key, with ADD 


S 




\ by Key, with ADD 


e 
1 




1 by Key, no ADD 
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/ by Key, no ADD 


s 




j by Key, with ADD 


3- 




1 by Key, with ADD 


3) 




1 by Limits (RAF) 


■0 




I by Limits (RAF) 






\ by Limits (RAF) 
\ by Limits (RAF) 




Sequential* 


j by Key, no ADD 




(deniand files 


\ by Key, with ADD 




processed by 


/ by Key, no ADD 




the READ 


j by Key, with ADD 




operation code 


/ by Limits (RAF) 
\ by Limits (RAF) 
/ by CHAIN, noADD 
1 by CHAIN, with ADD 
\ by CHAIN, no ADD 
1 by CHAIN, with ADD 




Random 


] by ADDROUT 
/ by ADDROUT 
[ by ADDROUT 
\ by ADDROUT 

Unordered 




Load 


Ordered 




Add records 


(add only 




only 


♦ 



File Description Specification 
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Mode of processing 
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1 
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File Addition/Unordered 








r 


Filename 

7 8 S 10 11 12 13 14 
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File Desi^iation 


28 


Length of Key Field or 


Device 

40 41 42 43 44 45 46 




■t Number of Tracks 

for Cylinder Overflow 
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3 4 5 
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1 1 1 


Tape 
Rewind 
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; Index 




1 

U. 

1Q 
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20 21 22 23 


Reconl 
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24 25 26 27 
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File 
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69 70 71 72 73 7 


Access 
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Overflow Indicator 
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35 36 37 38 
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Model 15 
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1C 
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<, 
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fii 


cf 


1 i 


s 


always arranged 


in 


ascending sequence. When an indexed file 





is processed record-by-record from beginning to end, the file is processed through the index using the sequential-by-key method. 

Notes: 

1 . DISK, DISK40, or DISK45 can be specified as the device (columns 40-46). 

2. If your system has 3340s attached, DISK is not a valid erftry in columns 40-46 since index files are not supported 
on the simulation areas. 
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to 
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Sequential Files 



Type of 
Processing 



Consecutive 
(The entire 
file is read 
from beginning 
to end.) 



3 
■O 

— Random 



Load 

Add records 
only 



by READ 



— ] 



by CHAIN 

by CHAIN 

by ADDROUT 

I by ADDROUT 

by ADDROUT 

by ADDROUT 

\ The file is written 
on disk as entered 
ADD only 



File Description Specification 
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UP 



u 



up 



File Designation 
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Mode of Processing 
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of Record Address Field 



Record Address Type 
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Device 
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DU 
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DU 
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CA 



Note: DISK, DISK40, or DISK45 can be specified as the device (columns 40-46). 
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* Records are inserted or changed in a direct file by defining 
the file as an update processed consecutively, or an update 
file processed randomly by the CHAIN operation code. 

Note: DISK, DISK40, or DISK45can be specified as the device (columns 40-46). 
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ADDROUT files may be associated with indexed, 
sequential, or direct disk files. 

Record address files containing record key limits may only 
be associated with indexed disk files, but may be a disk 
orMFCUfile. 



Note: DISK, DISK40, or DISK45can be specified as the device (columns 40-46). 



COBOL LANGUAGE STATEMENTS 
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ASSIGN 


ACCESS 


KEY 


OPEN 


I/O Verbs 


Value 


DA-544x-S-name 
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OUTPUT 
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INPUT 






DA-544x-R-name 


SEQUENTIAL 




INPUT 






DA-544x-S-name-U 


SEQUENTIAL 




1-0 




CU 


DA-544x-R-name 


RANDOIVI 


ACTUAL 


INPUT 




DG 


DA-544x-R-name-U RANDOM 


ACTUAL 


1-0 




DU 


'DA-544x-l-name 


SEQUENTIAL 


RECORD 


INPUT 




IS 


DA-544x-l-name 


SEQUENTIAL 


RECORD 
NOMINAL 


INPUT 


START . . . 


ISL 


DA-544x-l-name-U 


SEQUENTIAL 


RECORD 


1-0 


REWRITE. .. 


ISU 


DA-544x-l-name-U 


SEQUENTIAL 


RECORD 
NOMINAL 


1-0 


START . . . 
REWRITE ... 


ISUL 


DA-544x-l-name 


RANDOIVI 


RECORD 
NOMINAL 


INPUT 




IR 


DA-544x-l-name-N 


RANDOIVI 


RECORD 
NOMINAL 


1-0 


REWRITE 


IRU 


DA-544-x-l-name-(J 


RANDOM 


RECORD 
NOMINAL 


1-0 


WRITE 


IRUA 


DA-544-x-l-name 


SEQUENTIAL 


RECORD 


OUTPUT 




10 


Note: On systems with 3344 disk files, DA-544x can 


be replaced with DA-3340 for consecutive 


or direct files; DA-5445 can be replaced with DA-3340 for indexed files. 





Figure 9-11. Disk File Access Values for COBOL 



FORTRAN IV LANGUAGE STATEMENTS 


Access 
Value 


Device Option 
Statement 


Input/Output 
Statements 


// SEQ40 UNITNO-n, . . . READ (...)... 
//SEQ44 UNITNO-n, ... WRITE {...).. . 
// SEQ45 UNITNO-n, ... 


CO* 

DUA 


// DAD40 UNITNO-n, .. . READ (...).. . 
// DAD44 UNITNO-n, .. . WRITE (...).. . 
// DAD45 UNITNO-n, . . . DEFINE FILE . . . 

FIND(. ..) 


*lf the program only reads from the file, access value CG 
may be used. The file could then be sharable. 



Figure 9-12. Disk File Access Values for FORTRAN IV 
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Chapter 10: Program Testing 



After you have written a communications program to run 
under tlie CCP, you will usually want to test the program 
before using it in a production environment. If the terminal 
devices to be used by the program are available, you can 
test the program according to the following general pro- 
cedure: 

1. Perform the procedures for program preparation 
described in Chapter 9. Program Preparation. 

2. Perform the CCP Startup procedures given in the 
CCP System Operator's Guide. Include // FILE 
statements among the OCL statements at Startup 
for any test files that were described to the CCP at 
assignment time. 

3. Enter a request for the program from a terminal or 
from the system operator's console. (See Program 
Request in either the CCP System Operator's Guide 
or the CCP Terminal Operator's Guide.) 

4. Enter test input data as required by the program. 



6. 



If test files are to be printed using the Disk Copy/ 
Dump utility, the CCP must be shut down prior to 
using the utility, since the utility can neither be 
executed under the CCP nor in the opposite level 
from the CCP in a DPF (dual partition) system, as all 
test output data may not be available to it. (The 
Disk Copy /Dump utility program is described in 
/eyW System /3 Modei 10 Disic System Control 
Programming Reference l\/lanual, GC21-7512; in /SM 
System /3 IVIodel 12 System Control Programming 
Reference l\/lanual, GC21 -51 30; and in IBM System/3 
Model 15 System Control Programming Reference 
Manual, GC21-5077, if operating under 5704-SC1, or 
IBM System/3 Model 15 System Control Programming 
Concepts and Reference Manual, GC21 -51 62, if 
operating under 5704-SC2. 

Evaluate the program by inspecting test files and 
other output from the program. 



Caution: Care should be taken during testing that a mal- 
function in the test program does not destroy other pro- 
grams or data in main storage. 
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Appendix A: CPU to CPU Considerations 



The CCP is adaptable to the concentrator and subhost 
functions in a teleprocessing environment. A combination 
of the two functions can be attained through application 
programming under control of the CCP. 

In a concentrator role, the CCP can gather data from a 
variety of terminals and forward the data to a host system 
(System/360 or System/370) for further processing. In 
the reverse direction, the CCP can collect data from the 
host system and distribute the data to a variety of terminals. 
In the concentrator role, the CCP supports user-written 
application programs to handle the message traffic in a 
store and forward manner. (Store and forward is defined 
as the interruption of data flow from the originating termi- 
nal to the designated receiver by storing the information 
enroute and forwarding it at a later time.) 

In a subhost role, the CCP can gather data from a variety 
of terminals, act intelligently on the data, and provide 
responses in most cases. In those cases where additional 
data Is required, the request can be forwarded to the host 
system for further processing. 



The desirability of the concentrator function lies In 
reducing line and network costs and in retaining a consis- 
tent, common host interface in a changing terminal environ- 
ment. The subhost function has the same advantages as 
the concentrator function plus the advantages of distributed 
processing capability, fast response time, and back-up cap- 
ability (possibly degraded) in those occasions when the host 
system is unavailable. In the concentrator and subhost 
roles, the CCP would most likely be attached to the host 
as a point-to-point or multipoint tributary station. 

The previous paragraphs have described the CCP in an 
online (nonswitched) connection to a host CPU. The CCP 
can also function in a switched environment where the 
CCP acts as a host during certain periods and, when neces- 
sary, functions as a subhost, connecting to a host CPU for 
special transmissions or receptions such as transmission of 
batched data. The connection can be via a switched line 
defined as auto or manual call and auto or manual answer. 
If the host transmissions can be scheduled properly with 
the normal online terminal operations, an RPQ is available 
which provides a switching capability between a dial net- 
work for remote communications and multipoint control 
through the EIA local feature (IBM World Trade Corpor- 
ation EIA/CCITT). If two adapters are used, each can 
have this RPQ. Use of this RPQ requires separate CCP 
startups and separate assignment sets for dial and multi- 
point operation. (See index entry switched lines for 
further information.) 
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ATTACHMENT CONFIGURATIONS 

The COP can be attached to the following IBM systems 
that have the indicated hardware and programming support: 



System 


Communications Adapter 


Programming Support 


Remote Processor Configurations 


System/3 


BSCA 


RPG II 


Point-to-point 


Model 6 




Telecommunications 


Switched 






Feature (data 


Multipoint tributary 






mode support only) 




System/3 


BSCA 


RPG II Telecommunications 


Point-to-point 


Models 4, 




Feature (data mode 


Switched 


10, 12, or 15 




support only) 


Multipoint tributary 


BSCA^ 


Multiline/ 


Point-to-point 






Multipoint 


Switched 






(Features 


Multipoint tributary 






6030-6031) 


Control station 


BSCA 


CCP 


Point-to-point 








Switched 








Multipoint tributary 








Control station 


System 7' 


BSCA 


Programming support for 


Point-to-point 




(RPQ#S40076) 


RPa#S40076 and 


Switched 






applications programming 


Multipoint tributary 






support 




MLTA 


Programming support for 


Point-to-point 




(RPG#S40065) 


RPQ#S40065 and 


Switched 






applications programming 


Multipoint tributary 






support 


(see Note) 


System/360 and 


BSCA 


BSCA Programming 


Point-to-point 


Svstem/370 




support (BTAM) 


Switched 
Control station 



' System/7 with MLTA functions as a 2740 iVIodel 1 with the following features: 

Checking — leased line. 

Dial with checking — switched line. 

Station control with checking - multipoint tributary. 
^The Model 4 does not support MLMP. 

PROGRAMMING CONSIDERATIONS 

This section provides an app'lication-to-application under- 
standing of programming between the CCP and an attached 
CPU. 

The programming of an attached system for linkage to the 
CCP can differ greatly, depending upon the type of tele- 
communications support provided by the attached system. 
On the other hand, a particular application program running 
under the CCP communicating with a CPU can be easily 
used with another CPU, with little or no change. 
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For BSCA attachments, the programmer of the attached 
CPU should be familiar with the System/3 Model 10 Disk 
System, System/3 Model 12, or System/3 Model 15 Multi- 
line/Multipoint (MLMP) support for an understanding of 
the base CCP data management and IOCS. (See the publi- 
cation IBM System/3 Multiline/Multipoint Binary Synchron- 
ous Communications Reference l\4anuai, GC21 -7573.) For 
MLTA attachments, the programmer of the attached CPU 
should be familiar with the MLTA Input/Output Control 
System for an understanding of the base CCP data manage- 
ment and IOCS. (See the publication IBM System/3 
Multiple Line Terminal Adapter RPQ Program Reference 
and Component Description Manual, GC2 1-7560.) 

The CCP application programmer must be aware that the 
CCP always considers the attached CPU to be a terminal. 
As such, the attached CPU must be identified as either a 
command mode or a data mode terminal. The attached 
CPU should be designated a command mode terminal if it 
is to initiate CCP application programs without CCP system 
operator intervention. If program initiation by the attached 
CPU is not required, it should be designated a data mode 
terminal. In this case, the CCP system operator or the 
operator of a CCP command mode terminal initiates the 
program. 



Command Mode 

As a command mode terminal, the attached CPU is expected 
to provide certain commands in order to initiate a CCP 
application program and can optionally provide other 
commands to request special CCP control functions. The 
attaching CPU programming support must support variable 
length messages in order to handle CCP commands and 
responses. Messages must be non-transparent, non-ITB, 
consisting of a single block followed by EOT. 

The following commands can be issued by the attached 
CPU to the CCP: 



/ON [pa 


ssword] 


(required) 


/Q 




(optional) 


/NOQ 




(optional) 


/FILE 




(dictated by requirements 
of the CCP application 
program) 


Program 


Request 


(required) 


/OFF 




(optional) 


/MSG 




(optional) 


/NAME 




(optional) 


/RUN 




(optional) 


Data Mo 


de Escape 


(optional) 


/RELEASE 


(optional) 



Command 


Good 


Error 


1. /ON 


A01, £03 


E01, E02, E04, 
(R01, R02), £27 


2. /Q 


A03 


E01,E02, E05, (R01, 
R02), E27. E29 


3. /NOQ 


A04 


E01,E02, E05, (R01, 
R02),£27, E29 


4. /FILE 


A06 


E01, E02, E17, E18, 
El 9, E20, E2^, E26 
(R01, R02),f27, E29 


5. /OFF 


A10 


E01, E02, E08, E09, 
E10,(R01,R02), £27 


6. /NAME 


A05 


E01, E02, E22, E23, 
E24, E25, (R01, R02), 
E27 


7. /MSG 


A02 


E01,E02, E06, (R01, 
R02), £27 


8. /RELEASE 


A08 


E01,E02, E07, (R01, 
R02), E27 


9. /RUN 


A09 


E01,E02, E16, (R01, 
R02), E27 


10. Program 


User 


EO^,E02,E11,E12,E13, 


request 


defined 


E14, E15, (R01. R02). 
R03, R04, ROB, R06, 
R07, R08, R09, RIO, 
R11,R12, R13, R14, 
R15, R16, /?;7, R19, 
R20, R21, R23, R24, 
R25, R26, R27, E27, 
E28, E29, E30, E31, 


11. Data mode 


A07 


(R01, R02) 


escape 






sequence 







Notes: 

1. R02 cannot be received unless R01 has been received. 

2. If message or response prefix is in italics, it can be 
received only under Model 10 and Model 12 CCP. If 
a prefix is in bold type, it can be received only under 
Model 15 CCP. 

3. Refer to the IBM System/3 Communications Control 
Program Terminal Operator's Guide, GC21-7580, for 

a complete description of the commands and messages. 

Figure A-1. Command Mode Message and Response Prefixes 
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Attached CPU Application Program 



CCP 



Handle error 
response 



Handle error 
response 



Handle error 
response 



/Vr^'"- 



Write CCP sign- 
on command 
/ON 



Read response / -♦" 
from CCP 




Yes 



f Write program 
request (program/ 
name) 



Read 




(Determined by 
application.) 




Yes 



z 



T 



Z 



Write CCP sign 
off command 
/OFF 




Issue error 
response 



Yes 



No 



^"V^^^" 



Receive and 
analyze sign-on 
request 



Issue response 
message 



Receive and 
analyze program 
-^. / request 




Yes 



Initiate requested 
program 



/Program sends 
initiated record 



Program 
EOJ 



Receive and 
. , analyze 

sign off 



Issue 
response 



End of Job 



T 



Figure A-2. Procedure for Issuing a Program Request from an Attached Command Mode CPU 
A-4 



Descriptions of the functions of these commands are given 
in the CCP Terminal Operator's Guide. GC21-7580. The 
CCP Terminal Operator's Guide also describes the responses 
given by the CCP to these commands. The attached CPU 
application program must analyze these responses and 
take appropriate action. All messages with an 5 prefix are 
suppressed by the CCP when communicating with an 
attached CPU. 

Figure A-1 shows the CCP commands and the prefixes of 
the possible responses to each command. Figure A-2 
illustrates the general procedure that should be followed 
by the attached CPU application program in signing on to 
the CCP, issuing a program request, and signing off from 
the CCP. 

If a program running in a command mode CPU on a switched 
line has sent a /ON command, that program must issue a 
/OFF command to cause the line to disconnect normally. 
The /OFF command causes CCP to issue a response message 
to the program and disconnect the CPU before the line itself 
is disconnected. The program must be prepared to receive 
the response. If /OFF is not sent and a disconnection of 
the line occurs (caused, for example, by end of job on the 
command mode CPU), CCP attempts to issue a receive to 
the signed-on CPU on the disconnected line, and the CPU 
terminal is put into error recovery. 



Data Mode 

When an attached CPU is defined as a data mode terminal 
at CCP assignment time, programming of the attached CPU 
is greatly simplified, since it is not necessary to program for 
CCP application program requests and the possible CCP 
responses. In this case, however, the CCP application pro- 
gram must be initiated by the CCP system operator or 
another CCP command mode terminal. The initiated pro- 
gram can either specify the attached CPU as a required 
terminal {see PROGRAM assignment statement in CCP 
System Heference Manual) or acquire the CPU during 
execution. 



GENERATION CONSIDERATIONS 

The following generation statements must be considered 
when generating a CCP system that will support an attached 
CPU: 

$EMLA 
$EMLD 
SEBSC 
$EBSD 



All CPU-to-CPU support must be specified in the generation 
stage; a subset of the generated support can be selected in 
the assignment stage. See CCP System Reference Manual 
for descriptions of the generation and assignment statements. 



$EMLA and $EMLD Statements 

CCP to System/7 MLTA support must be described in these 
generation statements. When specifying the $EMLA 
parameters, you must decide whether or not translation is 
to be performed on the CPU-to-CPU messages. 

When specifying the parameters for the $EMLD statement, 
you must select one of the following System/7 types: 

• SYS7C 

• SYS7SC 

• SYS7DC 

The XMCODE parameter must be specified as PTTCEBCD. 

$EBSC and $EBSD Statements 

These statements are used to specify CCP to System/3, 
System/360, System/370, and System/7 BSCA support. 
When specifying the parameters of the $EBSC statement, 
consider what the physical attachment of the CPU will 
be: switched, nonswitched point-to-point, multipoint, or 
CCP as host (control station). 

The parameter for the ITB keyword should be YES if the 
CPU-to-CCP application program data blocks and data 
records are of fixed length and transmission checking is 
desired on each record. 

The RECSEP keyword should specify the record separator 
byte if the CPU-to-CCP application program transmissions 
are to be of variable block and record length. {Note: Block 
lengths can only be variable up to the maximum block 
length.) 

Either ASCII or EBCDIC code transmission must be 
specified for the CPU-to-CCP link. 

If CS is specified YES (control station) on the $EBSC 
statement, use of the RESPOL-YES parameter offers 
considerable performance improvement by making the BSCA 
polling routines resident. 
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If the MP-YES parameter is specified (multipoint tributary), 
the AUTORS-YES parameter offers performance improve- 
ment. 

The XPRNCY-YES operand should be specified if the 
full 256-character EBCDIC set is to be used in transmission 
between the CPU and the CCP application program. 

The TYPE operand of the $EBSD statement must specify 
CPU. 

Note: Record formatting for transmission using ITB, 
RECSEP, and XPRNCY applies only when the CPU is in 
data mode, communicating with the CCP application 
program. 



ASSIGNMENT CONSIDERATIONS 

The following assignment statements must be considered 
when making assignment selections for a CCP system that 
will support an attached CPU: 

// TERMATTR 

//BSCALINE 

//BSCATERM 

//MLTALINE 

//MLTATERM 

//PROGRAM 

The CCP assignment stage allows the user to select a subset 
of the generated options. The // TERMATTR statement 
must be used to specify the attributes of the attaching CPU. 
The // BSCALINE or // MLTALINE statements must be 
used to specify the characteristics of the line connection to 
the attaching CPU. The // BSCATERM or // MLTATERM 
statement must be used to specify the terminal character- 
istics of the attaching CPU. 



The data transmitted by the CCP application program is 
formatted for line transmission (block length, record 
length, etc.) based on information specified in the 
// TERMATTR statement. Data transmitted to the CCP 
application program must be formatted in the same manner. 



RECOMMENDATIONS AND EXAMPLES 

It is generally recommended that, in CPU-to-CCP attach- 
ments, the remote CPU be defined as a data mode terminal. 
This greatly simplifies the attachment interface. In data 
mode, message synchronization is established by the 
application programs. 

In command mode, it is recommended that the CCP pro- 
gram be designed to send data first. The message length 
for the remote CPU read operations must be 82 characters 
minimum to handle command mode message responses. 

The examples on the following pages depict System/360/ 
370 BTAM-to-CCP data mode and command mode 
sequences. The BTAM operations are as follows: 

WRITE Tl - Write Initial 
WRITE TQ- Write Inquiry 
WRITE TR - Write Reset 
WRITE TT - Write Continue 
READTI - Read Initial 
READ TT - Read Continue 
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Example 1: Multipoint Command Mode 



BTAM 
Operation 



BTAM (Control Station) 



CCP (Tributary Station) 



WRITE Tl 



Addressing sequence ■ 



S E 

T /ON [^password] T 
X X 



ACK 



ACK 



WRITE TR 



EOT 



READTI 



Polling sequence 



S E 

T A01 SIGNED ON -PROCEED T 
X X 



READ IT 



ACK 



EOT 



WRITE Tl 



Addressing sequence ■ 



■ ACK 



S E 

T (program name) T ■ 
X X 



ACK 



WRITE TR 



EOT 



READTI 



Polling sequence 



■ Program data or CCP error message 



READ IT 
READ TT 



ACK- 
ACK 



J^ 



-♦■ 



More program data or EOT 
EOT 



WRITE Tl 



Addressing sequence ' 



ACK 



S E 

T /OFF T 
X X 



ACK 



WRITE TR 



EOT' 



READTI 



Polling sequence 



T A10 SIGNED OFF- [HOLD/DROP] 
X TERMINAL E 

T 

X 



READ TT 



ACK- 



EOT 



CPU to CPU Considerations A-7 



Example 2: Point-to-Point Command Mode 



BTAM 
Operation 



BTAM 



CCP 



WRITE Tl 



ENQ 



S E 

T /ON []/) password] T ' 
X X 



■ACK 



-ACK 



WRITE TR 



EOT 



READTI 



ACK 



■ENQ 

S E 

T A01 SIGNED ON - PROCEED T 
X X 



READ TT 



ACK- 



■EOT 



WRITE Tl 



ENQ 



ACK 



J (program name) T 
X X 



■ACK 



WRITE TR 



EOT 



READTI 



ACK' 



■ENQ 

' Program data or CCP error message 



READ TT 

f 

READ TT 



ACK 

r 

ACK 



X* 



. More program data or EOT 
EOT 



WRITE Tl 



ENQ 



S E 

t/off T 

X X 



• ACK 



-ACK 



WRITE TR 



EOT 



READTI 



ACK- 



■ENQ 



■T A10 SIGNED OFF- [HOLD/DROP] 
X TERMINAL E 

T 
X 



READ TT 



ACK' 



■EOT 
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Example 3: Point-To-Point Switched Command Mode 



BTAM 
Operation 



BTAM 



CCP 



WRITE Tl 



ID sequence N ' 
Q 

S E 

T/0N[l4password]T ■ 
X X 



-*- A 

-*-ID sequence C 

K 



-ACK 



WRITE TR 



EOT 



■ENQ 



READ TT 



ACK 



S E 

■T A01 SIGNED ON -PROCEED T 

X X 



READ TT 



ACK' 



■EOT 



WRITE TO 



ENQ. 



-ACK 



WRITE 



WRITE TR 



S E 

T (program name) T- 
X X 



EOT. 



-ACK 



•ENQ 



READ TT 



READ TT 



f 



READ TT 



WRITE TO 



WRITE TT 



1 



WRITE TR 



ACK. 



ACK 



f 



ACK 



ENQ 



Data to CCP 
application program 



[ 



EOT 



■Program data or CCP error message 



-*— More program data or EOT 

■^ f 

-^EOT 



-ACK 



-ACK 
_J_ 



■ENQ 
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Example 3 (continued) 



READ TT 
READTT 



ACK' 
ACK- 



■*"-^ Program data 



EOT 



WRITE TQ 



ENQ 



.ACK 



WRITE 



S E 

T/OFF T 
X X 



-ACK 



WRITE TR 



EOT. 



■ENQ 



READTT 



READTT 



ACK' 



ACK 



S E 

-T AIO SIGNED OFF- [HOLD/DROP] TERMINAL T 

X X 



•EOT 
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Example 4: Point-to-Point Data Mode 



BTAM 
Operation 


BTAM 


COP 


COP Application 
Program Operation 


WRITE Tl 






GET 
GET 










WRITE TT 
WRITE 1 1 




^ ACK 


i 

GET 

GET 


(Data »- 




WRITE TR 










READ Tl 






PUT 


■^ (Data) 




READ TT 

f 

READ TT 
READ TT 






PUT 

PUT MESSAGE 


ACK ► 


1 








End of Job 




End of Job 
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Appendix B: Glossary 



For definitions of communications and data processing 
terms tliat are not included in this glossary, see IBM Data 
Processing Glossary, GC20-1699, or publications listed in 
Appendix C: Bibliography. 



$CCPFILE: A CCP control file on a 5444 disk or the 
3340 simulation area in which, during CCP assignment 
stage, the user defines one or more specific operating 
environments for the CCP. Each operating environment 
consists of a set of terminals, file, and programs that can 
be used during a particular run of the CCP. 



AID character: Attention Identification character. 

assignment stage: The special preparatory CCP run during 
which the user defines one or more sets of specific operat- 
ing environments in which the CCP can run. 

Attention Identification (AID) character: A code that is 
set in a 3270 display station when the operator takes an 
action that produces an I/O pending condition. The char- 
acter identifies the action or key that caused the condition 
to be generated. The AID Is set when the display station 
operator presses a program access key, ENTER key, TEST 
REQ key, or program function key; when a Selector Pen 
attention occurs; or when a successful operator identifica- 
tion card read-in occurs. It also identifies device addresses 
assigned to printers. 

attribute (3270): A characteristic of a display field. The 
attributes of a display field include: protected or unpro- 
tected; numeric-only or alphameric input control; displayed, 
nondisplayed, display intensified; selector-pen-detectable or 
nondetectable; and modified or not modified. 

attribute character (3270): A code that defines the attri- 
butes of the display field that follows. An attribute charac- 
ter is the first character in a display field, but it is not a 
displayable character. 

block mode operations: BSCA operations that result in all 
data from an operation in the program up to ETB being 
moved into or from the user program's record area. 

BSCA: Binary Synchronous Communications Adapter. 



CCC: Copy Control Character. 

command interrupt mode: The operating mode of a termi- 
nal following data mode escape until the program execution 
is resumed by a RUN command (the terminal re-enters data 
mode) or until the program is cancelled by a RELEASE 
command (terminal enters command mode). 

command mode: The operating mode of a command termi- 
nal following a successful sign-on, up to and including the 
program request. Following program termination, a termi- 
nal returns to command mode until another program request 
is made or until sign-off. 

command terminal: A terminal that is capable of command- 
ing CCP services related to requesting a program. Terminals 
are designated as either command terminals or data terminals 
at assignment time. 

communications management: A major function of the 
CCP that controls terminal input-output. 

communications service subroutine: A relocatable sub- 
routine provided by the CCP that is link-edited to user pro- 
grams written in RPG ll,COBOL, or FORTRAN IV. The 
subroutine is called by the user program whenever the pro- 
gram requires a communications service, enabling program- 
mers to request communications services in these languages. 
Separate subroutines are provided for COBOL, FORTRAN IV, 
and RPG II; a macro is provided for Basic Assembler. 

control station: The primary or controlling computer in a 
multipoint telecommunications configuration. 

Copy Control Character (CCC): A character used in con- 
junction with the 3270 Copy command to specify that a 
particular operation, or combination or operations, is to 
be performed at a display station or printer in the data 
that is to be copied. 

Copy operation: A 3270 DFF operation that copies the 
contents of the buffer from one display station or printer 
to another display station or printer attached to the same 
control unit. 
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cursor: A unique symbol (an underscore) that identifies a 
cliaracter position in a 3270 screen display, usually the char- 
acter position at which the next character to be entered from 
the keyboard will be displayed. 

data entry application: A communications-based system 
application in which terminals are in relatively prolonged 
communication with an application program (as opposed 
to the typical inquiry application), for example, entering 
data for document preparation (such as invoice preparation), 
or entering data directly into data files from a terminal. 

data mode: The operating mode of a terminal when it is 
under control of a user program, until the program termi- 
nates, the terminal is released by the program, or the data 
mode escape characters are entered. While in data mode, 
a terminal is not in direct communication with the CCP. 

data mode escape: A special CCP command, consisting of 
a unique string of six characters entered at a requesting 
terminal while the terminal is in data mode. The data 
mode escape command temporarily suspends a terminal's 
communication with a program and places the terminal In 
command interrupt mode. 

data terminal: A terminal that is not capable of command- 
ing CCP services. A data terminal is always either in stand- 
by mode (not polled for input by the CCP) or in data mode 
(under control of an application program). 

dedicated program: A program running under CCP that 
requires sole use of the CCP userprogram area. (Applies 
to Model 10 and Model 12 CCP.) 

designator character: A character that Immediately follows 
the attribute character in a 3270 selector-pen-detectable 
field. The designator character controls whether a detect 
on the field will or will not cause an attention. For a non- 
attention-producing field, the designator character also 
determines whether the modified data tag for the field is 
to be set or reset as the result of a selector-pen detect. 

DFF: 3270 Display Format Facility of the CCP. 

disk system management: The group of system programs 
which control the operation of the IBM System/3 Model 10 
Disk System or the IBM System/S Model 12 and Model 15. 
Disk system management performs scheduling, input/output 
control, storage assignment, data management, and related 
services. 

DSM: Disk System Management. 

file management: A major function of the CCP that controls 
the use of data files by programs running under the CCP. 



format find: A program (CCPFMT) that will find a newly 
created or modified format while running under CCP and 
additionally provides the capability to update the value of 
the DFFSFDT parameter of the PROGRAM assignment 
statement. 

generation stage: The initial stage of creating the CCP, 
during which the user specifies the size and range of 
function he requires in his verson of the CCP, and creates 
that version on his disk pack. 

implied Invite Input: An Invite Input that is not actually 
issued by the user program, but exists because data is 
allowed with the program request. Implied Invite Inputs 
are included in the count of outstanding Invite Inputs 
in the communications parameter list for certain operations. 

initial mode: The operating mode of a command terminal 
before a sign-on at the terminal has been accepted by the 
CCP. 

inquiry: A communications-based system application In 
which, typically, a single transaction or request for Infor- 
mation is entered from a terminal and a response Is 
returned to the terminal. 

inquiry-with-update: A communications-based system 
application in which records of transactions entered from 
terminals are used to interrogate and update one or more 
master files maintained by the system (synonymous with 
inquiry and transaction processing). 

interface: In application programming under the CCP, the 
data areas (parameter list and record area), communications 
service subroutines, and defined operations by which user 
programs and the CCP communicate with each other. 

line buffer: The Internal main storage area associated with 
a communication line from vi/hich data Is transmitted to a 
terminal or into which data is received from a terminal. 
Data in this area includes device and line control characters 
Inserted or removed by the CCP. 

master terminal name: In multlcomponent terminals (1050), 
the symbolic terminal name specified during CCP assignment 
as referring to the principle input and output component. 

MDT: Modified Data Tag. 

message mode operations: BSCA operations that result In 
all blocks of data Including the EOT signal being sent or 
received in a single operation, 

MLMP: Multiline/Multipoint BSCA IOCS, the base data 
management and IOCS included In the CCP for binary 
synchronous communications. 
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MLTA: Multiple Line Terminal Adapter RPQ. MLTA IOCS, 
the System/3 programming support for the IVILTA RPQ 
device, is included in the CCP for asynchronous (start-stop) 
communicatiorrs. 

Modified Data Tag (IVIDT): A bit in the attribute character 
of a 3270 display field which, when set on, causes the field 
to be read on an input operation. The modified data tag 
may be set by (1) a keyboard input to the field, (2) a 
selector-pen detection in the field, (3) a card read-in opera- 
tion, or (4) program control. The modified data tag may be 
reset by (1) a selector-pen detection in the field, (2) pro- 
gram control, or (3) ERASE I NPUT key. 

null character: A hex 00 character on a 3270 that occupies 
a position in the storage buffer and is displayed as a blank. 

MR T program: multiple requesting terminal program. 

multicomponent terminal: A class of terminals that can 
have more than one Input and/or output devices attached. 
The 1050 system is the only terminal supported by the 
CCP that Is considered to be a multicomponent terminal. 

multiple requesting terminal (MRT) program: A type of 
application program under the CCP that can process 
additional requests for it even though it is still processing 
an earlier request. 

NEP: never-ending program. 

never-ending program: A user application program which, 
after it has been initiated, normally remains in main 
storage and does not go to end of job until the CCP is shut 
down. 

operation stage: The stage of the CCP during which the CCP 
is started, supports an online network of terminals, and is 
shut down. 

order entry application: A form of data entry application 
in which transactions (such as sales orders) are entered into 
a data file from remote terminals. 

output/input field: One of four classes of fields defined 
under the 3270 Display Format Facility. Output/input 
fields contain data that has been supplied either during 
format generation or during execution of the application 
program; this data can be changed by the terminal operator 
using the keyboard. 

password security option: An optional CCP feature, 
selected during generation, which requires a terminal opera- 
tor to enter a predetermined password before the CCP will 
allow the terminal to enter commands. 



physical file: See symbolic file. 

program management: The major function of the CCP that 
fetches programs, allocates system resources to programs, 
manages the concurrent execution of two or more programs, 
purges programs from main storage, and optionally main- 
tains a count of the number of times each application pro- 
gram is requested. 

program request: A command, consisting of a program 
name entered at a terminal or the system operator's con- 
sole, that causes the CCP to initiate execution of an appli- 
cation program. 

program request count: The optional CCP program manage- 
ment function of maintaining a count of the number of times 
each application program is requested. 

program request under format (PRUFj: A method of 
requesting a program from a display format on a 3277 or 
3275. The entire screen can be used to pass data with the 
program request. The name of the program to be requested 
appears as the first input field from the 3270 terminal. 

program-selected terminal: From the point of view of the 
application program, a terminal that is selected by an appli- 
cation program for input/output, as opposed to a terminal 
that requested the program (see requesting terminal). 
Program-selected terminals can be e\thev required (must be 
allocated to the program before the program can run) or 
acquired (allocated dynamically to the program as it is 
running). 

program termination code: A two character code provided 
by the CCP when an application program has been cancelled 
by the CCP because of certain coding errors or program 
logic errors, or because the system operator requested can- 
cellation of the program. This code identifies the reason 
for the cancellation (refer to the CCP System Operator's 
Guide). 

protected field: A 3270 display field for which the display 
operator cannot use the keyboard or operator identification 
card reader to enter, modify, or erase data. 

record mode operations: Application program input and 
output operations that result in a single record (for BSCA, 
a single record of a data block) being moved into or out of 
the program's record area. 

requesting terminal: From the point of view of the applica- 
tion program, a terminal that requested the program, as 
opposed to a terminal that is selected by the program (see 
program-selected terminal). Requesting terminals are 
always command terminals. 
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RVI: A signal from a receiving device to a device that is 
transmitting to interrupt Its transmission as soon as possible 
(see Get operation). 

selector pen detectable (SPD) field: One of four classes of 
fields defined under the 3270 Display Format Facility. SPD 
fields allow the terminal operator to enter data by using the 
selector pen. 

Shutdown: The final stage of the CCP operation, during 
which the CCP allows programs currently executing or 
scheduled to finish processing, then closes files, adapters, 
and communication lines. 

sign-on: The procedure performed at a terminal while it is 
in initial mode. This procedure may include entering only 
the /ON command, or entering the /ON commahd with a 
password or other user-specified security data. 

single requesting terminal (SRT) program: A type of appli- 
cation program under the CCP that can process a request 
from only one requesting terminal during its execution. 

SPD field: Selector Pen Detectable field. 

SRT program: single requesting terminal program. 

standby mode: The mode of a data (non-command) termi- 
nal when it is not under control of a user program. 

startup: The initial phase of the CCP operational stage, 
during which all necessary initialization occurs, including 
opening of disk files, adapters, and communication lines, 
and the completion of various tables and control blocks. 

subhost: A telecommunications system which, while directly 
controlling a group of terminals, is itself a tributary station to 
another central processor. 

symbolic file: A file reference (symbolic name) which 
allows, on separate executions of a program, reference to 
different files, known asphysical files. A symbolic file is 
related by the terminal operator to a specific physical file 
by means of a /FILE command. 

symbolic subterminal name: Symbolic names assigned to 
individual components of a multicomponent terminal 
( 1 050) . See master terminal name. 

system task: A unit of work for the processing unit from 
the standpoint of the CCP, consisting of a CCP function 
(as opposed to a user application, or user task) that must 
be performed by the CCP, such as communications 
management. 

task: See system task and user task. 



task chaining: The process of requesting initiation of a CCP 
task from within a currently executing CCP task, without 
requiring system or operator action. 

task identification: An identifying character associated 
with a task which differentiates between that task and 
other tasks running concurrently under the CCP. 

terminal attributes: Characteristics of a terminal from the 
point of view of the CCP and CCP application programs, 
including block length, record length, data format, and 
other information. 

terminal reference identifier: A unique two-character 
identifier, assigned to each terminal during the CCP assign- 
ment stage, that is used by the CCP and the system operator 
to refer to a specific terminal. Any of the 64 graphic 
EBCDIC characters may be used. 

translation: Under the CCP, conversion of the transmission 
line data code (if not EBCDIC) into EBCDIC or conversion 
from EBCDIC into transmission line data code. 

tributary station: A secondary or non-controlling device in 
a multipoint telecommunications configuration. 

truncation: Loss of excess data when the length of data 
received from a terminal is greater than the maximum input 
length specified in the parameter list or when more data is 
provided in an output operation than the line buffer for 
the terminal can hold (in BSCA record mode output opera- 
tions, if the output length exceeds the record length speci- 
fied in the terminal attributes set). 

unit record device: Under the CCP, the MFCU, 1442 Card 
Read Punch, 5203 and 1403 printers, MFCM, 2501 Card 
Reader, and 3741 Data Station directly attached. 

unprotected field: A 3270 display field for which the ter- 
minal operator can manually enter, modify, or erase data. 

user task: A unit of work for the processing unit from the 
standpoint of the CCP, consisting of a user program (as 
opposed to a system function, or system task) that must 
be executed by the CCP. 

I/I/CC: Write Control Character. 

Write Control Character (WC.Cj: A character used in con- 
junction with 3270 write operations to specify that a par- 
ticular operation, or combination of operations, is to be 
performed at a display station or printer. 
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Appendix D: Operation Codes 



Table D-1 shows the decimal and hexadecimal values and 
RPG II codes that represent CCP communications opera- 
tions. The following symbols are used in the table to 
represent operations: 

Operation Symbols 

ACC Accept Input 

ACQ Acquire Terminal 

CRY Copy (3270 DDF only) 

EAU Erase All Unprotected (3270 DFF only) 

EOF Force End-of-File (RPG II only) 

GET Get 

GTA Get Terminal Attributes 

INV Invite Input 

PNW Put-No-Wait 

PTG Put- Then-Get 

PUT Put 

REL Release Terminal 

SHQ Shutdown Inquiry 

SPI Stop Invite Input 

TCH Chain Tasl< Request (5704-SC2 only) 

WAT Wait Operation (IVlodel 1 5 only) 

Operation Modifier Symbols 

CMD Command-mode Terminal 

BLK Block - send end-of-block (EOS) 

KPL. Keep line 

MS6 Message - end end-of-transmission (EOT) 

NEL Not End New Line 

NNL Not Start New Line 

OVR Override (3270 DFF only) 

PRF Program Request under Format (PRUF) 

RVI Send reverse interrupt (RV I) 

STA Set terminal attributes 



Operation 


Value 


RPGII 
Code 


Dec 


Hex 


ACC 


4 


0004 


mm 


ACQ 


g 


0009 


v>m\ 


ACQ,CMD 


41 


0029 


mB\ 


ACQ,STA 


25 


0019 


mA\ 


CPY 


66 


0042 


moB 


EAU 


82 


0052 


liiliiEB 


EOF 


- 


- 


mGA 


GET 


1 


0001 


m\i>A 


GET.RVI 


17 


0011 


mAA 


GTA 


8 


0008 


mm 


INV 


5 


0005 


m\/>E 


PNW 


6 


0006 


m\f>F 


PNW.NEL 


262 


0106 


biAKF 


PNW.NNL 


518 


0206 


liiBtiiF 


PNW,NNL,NEL 


774 


0306 


lACkSF 


PNW.BLK 


38 


0026 


msf 


PNW,BLK,NEL 


294 


0126 


I4ABF 
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Operation 


Value 


RPG II 
Code 


Dec 


Hex 


PNW,BLK,NNL 


550 


0226 


bBBF 


PNW,BLK,NNL,NEL 


806 


0326 


I4CBF 


PNW.MSG 


54 


0036 


biliSCF 


PNW.MSG.INV 


- 


- 


mm 


PNW,MSG,INV,OVR 


- 


- 


mm 


PNW.MSG.NEL 


310 


0136 


UACF 


PNW.MSG.NNL 


566 


0236 


KBCF 


PNW,MSG,NNL,NEL 


822 


0336 


14CCF 


PNW,MSG,OVR 


2102 


0836 


I4HCF 


PNW,MSG,OVR,PRF 


2166 


0876 


bHGF 


PNW,MSG,PRF 


118 


0076 


mGF 


PTG 


3 


0003 


\/,mc 


PTG,NEL 


259 


0103 


tSAblC 


PTG,NNL 


515 


0203 


m\ic 


PTG,NNL,NEL 


771 


0303 


mm 


PTG.MSG 


51 


0033 


•mcc 


PUT 


2 


0002 


\it\o\pS 


PUT,NEL 


258 


0102 


\/)fK\iB 


PUT,NNL 


514 


0202 


mm 


PUT.NNL.NEL 


770 


0302 


mm 



Operation 


Value 


RPG II 
Code 


Dec 


Hex 


PUT,BLK 


34 


0022 


msB 


PUT,BLK,PRF 


98 


0062 


mfB 


PUT,BLK,NEL 


290 


0122 


IfiABB 


PUT,BLK,NNL 


546 


0222 


bBBB 


PUT,BLK,NNL,NEL 


802 


0322 


bCBB 


PUT.MSG 


50 


0032 


IzllilCB 


PUT,MSG,INV 


- 


- 


mcs 


PUT,MSG,INV,OVR 


- 


- 


tiHCS 


PUT,MSG,NEL 


306 


0132 


tSACB 


PUT,MSG,NNL 


562 


0232 


liiBCB 


PUT,MSG,NNL,NEL 


818 


0332 


mcB 


PUT,MSG,OVR 


2098 


0832 


liHCB 


PUT,MSG,PRF 


114 


P072 


mcB 


PUT,MSG,PRF,OVR 


2162 


0872 


KHGB 


REL 


10 


OOOA 


m\/>K 


REUKPL 


26 


001 A 


UliAK 


SHQ 





0000 


moo 


SPI 


1025 


0401 


bDl^A 


TCH 


42 


002A 


biliiBK 


WAT 


20 


0014 


lil4AD 
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Appendix E: Return Codes 



This appendix contains summary tables of return codes 
issued to application programs by the CCP following tele- 
communications operations. (See index entry return codes^ 
for references to additional information.) The following 
summary tables are provided: 

Table E-1 Success/ Exception Conditions Return Codes 

Table E-2 Common I/O Error Return Codes 

Tables E-3, Unique 3270, 3735, and 3741 BSCA I/O 
E-4, and E-5 Error Return Codes 

Table E-6 Success/Exception Return Codes Per Opera- 
tion Type 

Table E-7 Common I/O Error Return Codes Per Opera- 

tion Type 

Tables E-8, 3270, 3735, and 3741 I/O Error Return 
E-9, and E-10 Codes Per Operation Type 

Table E-11 Contents of Effective Input Length Field 
and Record Area Per Operation Type and 
Return Code 

Tables 1-3 include a suggested program action for each 
CCP return code. The recommended actions are as follows: 



Code 


Recommended Program Actions 


A1 


Continue normal processing 


A2 


Attempt to determine the cause of the 
error and retry the operation if appropriate; 
otherwise go to the next logical operation 
Note: If the failure that caused the error con- 
dition is not corrected before the retry, the 
same error may occur on the retry. 


A3 


Do not reissue the operation to this terminal 


A4 


Go to End-of-Job as soon as logically possible 


A5 


Process according to the requirements of 
the application 


A6 


Process data until EOT on the terminal for 
which data is pending 


A7 


Issue a Get operation or go to End-of-Job 



On data transfer operations, input and/or output data 
accompanies the following return codes, and no others: 

0,1,2,3,6 



Negative Return Codes 

In most cases, when the CCP encounters an error condition, 
it stops processing the operation and returns a negative 
return code. Therefore, if concurrent error conditions occur, 
the CCP returns a code for only the first error condition 
detected. 

The results of the data transfer for any operation yielding 
a negative return code are unpredictable, except that a 
translation error on an output operation always indicates 
the data has not been transmitted. 

For BSCA, a negative return code always terminates the 
current transmission with the terminal, except for a 
translation error on a Put operation. If a translation error 
occurs when data is being sent to a terminal, the line Is 
still connected to the terminal. Except for the translation 
error, a Put Message should not be issued if you are trans- 
mitting when a negative return code occurs and another 
Get should not be issued unless you wish to re-establish 
communication with the terminal. 

See Put-Then-Get operation under Operations in Chapter 2 
for information about the meaning of negative return codes 
for that operation. See also index entry return codes, 
negative (DFF). 

Use of Data Truncated Return Code in 3270 DFF 

The data truncated (hex 01 ) return code has a special 
meaning in programs using the 3270 Display Format 
Facility. If this return code Is received from a Get or 
Accept Input operation, it indicates that the maximum 
input length given in the parameter list for the operation 
was less than the total length of all the fields the program 
should have expected, as defined by the last Put Message 
or Put Overrides (with select input fields) operation. 
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The data truncated return code does not necessarily mean 
that more data was entered from the terminal than was 
received by the program. A situation could exist where 
only a few fields were entered from the terminal, the sum 
of which was less than the length the program should expect 
and less than the value given as maximum input length for 
the operation. The fact that the length given by the program 



is less than should have been given causes the data truncated 
return code to be returned from the operation. 

Under the DFF, the data truncated return code can be an 
indication that the program is expecting a record in a 
different structure than the one it is receiving. 



CCP RETURN CODES 


Description 


Program 
Action 


Dec 


Hex 


RPGII 



0000 00 

1 0001 01 



0002 



0003 



0004 



0005 



02 



03 



04 



05 



Successful operation 

DATA TRUNCATED: Data was truncated; for input operations, 
the length of the data was greater than the input length specified 
in the parameter list; for output operations, the length of the 
data was greater than the length of the teleprocessing line buffer. 

EOT: Input operation was successful (EOT was received), 
or non-PRUF program request data was returned to a 
PRUF program at program request time. 

DATA TRUNCATION AND EOT: Data truncation occurred on 
this operation and EOT was received. 

SHUTDOWN REQUESTED: The system operator has requested 
CCP shutdown. The requested operation has not been performed. 

DATA PENDING: The operation was issued to a terminal on a 
BSCA line which is currently controlled by another terminal 
in use by your program (line awaiting EOT). An Invite Input was 
issued to a terminal which is currently awaiting an EOT. A Put 
or Get of a record or block was issued to another terminal on the 
same line. Put or Get operations with the previous terminal must 
be continued until EOT is transmitted on the line. 



A1 
A2 



A1 



A2 



A4 



A6 



6 0006 06 



0007 07 



8 0008 08 



TERMINAL INTERRUPT/RVI: A terminal interrupt (MLTA) A5 

or RVI (BSCA) has been received from the remote station. The 
operation was successful. For BSCA terminals, this return code 
indicates that the RVI was received after the initial positive re- 
sponse to addressing. An RVI to addressing will result in -14 for 
CPU, -40 for 3735, or -20 to -28 for 3270. 

3270 CLEAR: The terminal operator at 3270 pressed the CLEAR A5 

key (see 3270 Component Description, GA27-2749). 

TERMINAL NO LONGER AVAILABLE: Command interrupt A3 

mode was entered and the terminal operator released (/RELEASE 
command) the terminal. The terminal is no longer available to 
this program. 
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CCP RETURN CODES 


Description 


Program 
Action 


Dec 


Hex 


RPGII 



0009 09 TERMINAL OFFLINE: The requested terminal has been varied off- A3 

line and is not available to this program. 



10 OOOA 10 STOP INVITE INPUT SUCCESSFUL: The request to stop Invite 

Input was successful; the Invite input has been cancelled. 



A1 



11 OOOB 11 ACQUIRE TERMINAL FAILED: The attempt to acquire a terminal A1 

for this program has failed. 

12 OOOC 12 CHAIN TASK QUEUE FULL: The maximum number of chain task A2 

requests are already queued; this chain task request cannot be 
accepted. 

13 OOOD 13 INSUFFICIENTTP BUFFER: Insufficient TP is available to queue A2 

this request. 

14 OOOE 14 CHAIN REQUEST DATA ACCEPTED SUCCESSFULLY: An opera- A1 

tion to accept the data from a chain task request was successful. 

15 OOOF 15 CHAIN REQUEST DATA TRUNCATED: The data associated with A2 

a chain task request was truncated. 

Table E-1 I Part 2 of 2). Success/Exception Condition Return Codes 
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CCP Return Codes 



Dec 



Hex 



RPGII 



Description 



Program 
Action 



-3 



-6 



-8 



-10 



-11 



-12 



-13 



-14 



FFFF 



FFFE 



FFFD 



FFFC 



FFFB 



FFFA 



FFF9 



FFF8 



FFF7 



FFF6 



FFFB 



FFF4 



FFF3 



FFF2 



OJ 
OK 

OL 
OM 
ON 
OO 

OP 
OQ 
OR 

1) 
U 
IK 
1L 



-91 FFA3 9J 



DATA CHECK: Data was received incorrectly, checking A2 

error condition detected. 

INVALID CHARACTER: (1) During translation of data, A2 

an invalid character was found. (2) An invalid ASCII 
character has been detected by BSCA. 

LOST DATA: Data received was lost because it exceeded A2 

the size of the input buffer. 

PERMANENT BSCA ERROR: Operation failed because a A2 

permanent error condition was detected. 

ABNORMAL RESPONSE: An invalid response was received A2 

from the remote station. 

TRANSMIT/RECEIVE ABORT: Data transfer failed and the A3 

teleprocessing line has been closed. CCP has varied offline all 
terminals on this line. 

NO RESPONSE TO POLLING/ADDRESSING: The selected A2 

terminal does not respond to polling or addressing. 

TEXT TIME OUT: The terminal does not respond to attempted A2 
data transfer. 

WAIT TIME EXCEEDED: Data not sent or received before A2 

EOT within a specified time frame. Note: If using 3270, 
retry (program action A2) is not allowed. Go to End-of-Job 
as soon as logically possible. 

NO CONNECTION: Unable to establish a connection with A2 

the remote station. 

INVALID ID'S: The ID exchange with the remote station A2 

failed . 

ABORT, DISCONNECT: The switched line connection to A2 

the remote station has been lost. 

ADAPTER CHECK: A hardware check occurred on the A2 

teleprocessing line adapter. 

NEGATIVE RESPONSE TO ADDRESSING: The remote A2 

terminal has an error condition which prevents it from 
successfully receiving data. For the 3284, 3286 and 3288 
printer components of the 3270 system, this return code 
indicates the printer is busy. 

OPERATION NOT PERFORMED (RPG II SPECIAL): A2 

The operation was not performed because indicator 91 
was set on by a previous operation and was not set off. 



Table E-2. Common I/O Error Return Codes 

E-4 



CCP RETURN CODES 


Description 


Program 
Action 


Dec 


Hex 


RPGII 



-20 FFEC 2} Device unavailable ornot ready. A2 

-21 FFEB 2J Notus^d. This return code is not returned to the user. If CCP 

detects this condition, an operations message is displayed 
followed by a 2F termination code. 



Equipment check; device end. A2 

3270 detected a BSCA error. A2 

Control check; data check. A2 

Data check on copy command. A2 

Operation check— copy command. A2 

Device busy with copy command. A2 

Control check, operation check, data check during copy A2 
command. 



-29 FFE3 2R Invalid data from 3270 using DFF. This return code is caused A2 

by the terminal operator pressing the TEST REG key on the 
3270 keyboard. 

Table E-3. Unique 3270 BSCA I/O Error Return Codes 



-22 


FFEA 


2K 


-23 


FFE9 


2L 


-24 


FFE8 


2M 


-25 


FFE7 


2N 


-26 


FFE6 


20 


-27 


FFEB 


2P 


-28 


FFE4 


20 



Return Codes E-5 



CCP RETURN CODES 



Dec 



Hex 



RPGM 



Description 



-40 


FFD8 


4 


Attempted send before receive 


-41 


FFD7 


4J 


Invalid cliaracter. 


-42 


FFD6 


4K 


Buffer overflow. 


-43 


FFD5 


4L 


Disk full. 


-44 


FFD4 


4M 


Directory full. 


-45 


FFD3 


4N 


Undefined header. 


-46 


FFD2 


40 


3735 disk error. 



Program 
Action 

A7 

A2 

A2 

A5 

A5 

A2 

A2 



Table E-4. Unique 3735 BSCA I/O Error Return Codes 



E-6 



CCP RETURN CODES 


Program 
Description Action 


Dec 


Hex 


RPGII 



-50 


FFCE 


5 


Transparency error occurred 


-51 


FFCD 


5J 


No activity In 20 seconds. 


-52 


FFCC 


5K 


Data check. 


-53 


FFCB 


5L 


Received line bid error. 


-54 


FFCA 


5M 


Wrong length error. 


-55 


FFC9 


5N 


Reset was pressed on 3741 . 


-56 


FFC8 


50 


Security checl<. 


-57 


FFC7 


5P 


Disl< overflow. 


-58 


FFC6 


50 


Bad extent error. 


-59 


FFC5 


5R 


Both stations transmit. 


-60 


FFC4 


6} 


Length error. 


-61 


FFC3 


6J 


No record found on dislc. 


-62 


FFC2 


6K 


Seek error. 


-63 


FFC1 


6L 


Read error. 


-64 


FFCO 


6M 


Write error. 


-65 


FFBF 


6N 


Not ready. 


-66 


FFBE 


60 


Diskette write protected. 


Table E-5. 


Unique 3741 BSCA 1/ 


Error Return Codes 



A2 
A2 
A2 
A2 
A2 
A5 
A5 
A5 
A2 
A7 
A2 
A2 
A2 
A2 
A2 
A2 
A2 



Return Codes E-7 



m 
do 






6> 



m 



c 

3 

o 

o 



o 

-a 



o 

3 

-i 



Return Code Value 


Description 


Operation 

(Abbreviations are explained under Operation Codes in Appendix D) 

— ■■'-— — ' -— ■ 


Dec 


Hex 


RPGII 




ACC 


ACQ 


CPY 


EAU 


EOF 


GET 


GTA 


INV 


PNW 


PTG 


PUT 


REL 


SHQ 


SPI 


TCH 


WAT 





0000 


00 


Successful operation 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X^ 


X^ 


x' 


X 


X 


1 


0001 


01 


Data truncated 


X 










X 


X 






X 


X 






X 






2 


0002 


02 


EOT/non-PRUFdata 


X* 










X 








X 


X 






X 






3 


0003 


03 


Data truncation and EOT 


X 










X 








X 


X 






X 






4 


0004 


04 


Shutdown requested 


X 












X 




















5 


0005 


05 


Data pending 












X 






X 


X 


X 












6 


0006 


06 


Terminal interrupt/RVI 




















X 


X 












7 


0007 


07 


3270 clear 


X 










X 








X 








X 






8 


0008 


08 


Terminal no longer available 


x^ 










X^ 








X^ 








x^ 






9 


0009 


09 


Terminal offline 


X 




X 


X 




X 




X 


X 


X 


X 












10 


OOOA 


10 


Stop invite input successful 




























X 






11 


OOOB 


11 


Acquire terminal failed 




X 






























12 


OOOC 


12 


Chain task queue full 






























X 




13 


OOOD 


13 


Insufficient TP buffer 






























X 




14 


000 E 


14 


Chain request data accepted 


X 
































15 


000 F 


15 


Chain request data truncated 


X 

































'This specifies tliat the Get operation was successful while the Stop Invite Input failed. 

^The count of Invite Input operations outstanding for this user program is returned in the effective input length field of the parameter list. 

Indicates shutdown not requested. 
^If a PRUF program, indicates that non-PRUF data was received. 



sr 



o 

e 

& 



O 

a 
o 

3 

-I 
< 

1 



Return Code Value 


Description 


Operation 

(Abbreviations are explained under Operation Codes Appendix D) 


Dec 


riex 


RPGii 




ACC 


ACQ 


CPY 


EAU 


EOF 


GET 


GTA 


my 


PNW 


PTG 


PUT 


REL 


SHQ 


SRI 


TCH 


WAT 


-1 


FFFF 


OJ 


Data check 


X 




X 


X 




X 








X' 


x» 






X 






-2 


FFFE 


OK 


Invalid character 


X 




X 


X 




X 








X 


X 






X 






-3 


FFFD 


OL 


Lost data 


X 




X 


X 




X 








X 








X 






-4 


FFFC 


OM 


Permanent BSCA error 


X 




X 


X 




X 








X 


X 






X 






-5 


FFFB 


ON 


Abnormal response 


X 




X 


X 




X 








X 


X 






X 






-6 


FFFA 


OO 


Transmit/receive abort 


X 




X 


X 




X 








X 


X 






X 






-7 


FFF9 


OP 


No response to polling/addressing 


X 




X 


X 




X 








X 


X 






X 






-8 


FFF8 


OQ 


Text time out 


X 




X 


X 




X 








X 


X 






X 






-9 


FFF7 


OR 


Wait time exceeded 


X 




X 


X 




X 








X 


X 






X 






-10 


FFF6 


1} 


No connection 


X 




X 


X 




X 








X 


X 






X 






-11 


FFF5 


U 


Invalid IDs 


X 




X 


X 




X 








X 


X 






X 






-12 


FFF4 


IK 


Abort, disconnect 


X 




X 


X 




X 








X 


X 






X 






-13 


FFF3 


1L 


Adapter check 


X 




X 


X 




X 








X 


X 






X 






-14 


FFF2 


IM 


Negative response to addressing 




















X 


X 












-91 




9J 


Operation not performed^ 






















1 













o 

o 
a. 



Data check cannot occur on a Put for BSCA EBCDIC. 
*RPG II SPECIAL only. 



m 
(b 



M 

e 



O 

m 



39 

o 

s 

3 

O 

o 



O 

■o 



o 
a 

-) 
•< 



Return Code Value 


Description 


Operation 
(Abbreviations are explained under Operation Codes in Appendix D) 


Dec 


Hex 


RPGII 




ACC 


ACQ 


CPY 


EAU 


EOF 


GET 


GTA 


INV 


PNW 


PTG 


PUT 


REL 


SHQ 


SPI 


TCH 


WAT 


-20 


FFEC 


2} 


Device unavailable or not ready 






X 


X 












X 


X 












-20 


FFEB 


2J 


Not used 


































-22 


FFEA 


2K 


Equipment check; device end 






X 


X 












X 


X 












-23 


FFE9 


2L 


3270 detected BSCA error 






X 


X 












X 


X 












-24 


FFE8 


2M 


Control check; data check 






X 


X 












X 


X 












-25 


FFE7 


2N 


Data check on copy command 






X 














X 


X 












-26 


FFE6 


20 


Operation check-copy command 






X 














X 


X 












-27 


FFEB 


2P 


Device busy with copy command 






X 














X 


X 












-28 


FFE4 


2Q 


Control, operation, or data check on 
copy command 






X 














X 


X 












-29 


FFE3 


2R 


Invalid data from 3270 using DFF 


X 










X 
















X 







m 
to 

u 

VI 

<n 

o 

m 

X 

o 

14 
c 

3 

o 

o 



-I 
■< 



Return Code Value 


Description 


Operation 

(Abbreviations are explained under Operation Codes in Appendix D) 


Dec 


Hex 


RPGIi 




ACC 


ACQ 


CPY 


EAU 


EOF 


GET 


GTA 


IIMV 


PNW 


PTG 


PUT 


REL 


SHQ 


SPI 


TCH 


WAT 


-40 


FFD8 


4} 


Attempted send before receive 




















X 


X 












-41 


FFD7 


4J 


Invalid character 




















X 


X 












-42 


FFD6 


4K 


Buffer overflow 




















X 


X 












-43 


FFD5 


4L 


Disk full 




















X 


X 












-44 


FFD4 


4IVI 


Directory full 




















X 


X 












-45 


FFD3 


4N 


Undefined header 




















X 


X 












-46 


FFD2 


40 


3735 disk error 


X 










X 








X 








X 







o 

o 
a. 



a 

171 

e 

CO 

•J 

O 

m 

S 



3 

o 

o 

Q. 



o 

s, 

o 

3 



Return Code Value 


Description 


Operation 

{Abbreviations are explained under Operation Codes in Appendix D) 


Dec 


Hex 


RPGII 




ACC 


ACQ 


CPY 


EAU 


EOF 


GET 


GTA 


INV 


PNW 


PTG 


PUT 


REL 


SHQ 


SPI 


TCH 


WAT 


-50 


FFCE 


5} 


Transparency error occurred 


X 










X 








X 














-51 


FFCD 


5K 


No activity in 20 seconds 


X 










X 






X 


X 


X 






X 






-52 


FFCC 


5K 


Data check 


X 










X 








X 














-53 


FFCB 


5L 


Received line bid error 


X 










X 






X 


X 


X 






X 






-54 


FFCA 


5M 


Wrong iengtii error 


X 










X 






X 


X 


X 






X 






-55 


FFC9 


5N 


Reset was pressed on 3741 


X 










X 






X 


X 


X 






X 






-56 


FFC8 


50 


Security clieck 


X 










X 






X 


X 


X 






X 






-57 


FFC7 


5P 


Disk overflow 


X 










X 






X 


X 


X 






X 






-58 


FFC6 


5Q 


Bad extent error 


X 










X 








X 














-59 


FFC5 


5R 


Both stations transmit 


X 










X 








X 














-60 


FFC4 


6} 


Length error 


X 










X 






X 


X 


X 






X 






-61 


FFC3 


6J 


No record found on disk 


X 










X 






X 


X 


X 






X 






-62 


FFC2 


6K 


Seek error 


X 










X 






X 


X 


X 






X 






-63 


FFC1 


6L 


Read error 


X 










X 






X 


X 


X 






X 






-64 


FFCO 


6M 


Write error 


X 










X 






X 


X 


X 






X 






-65 


FFBF 


6N 


Not ready 


















X 


X 


X 












-66 


FFBE 


60 


Diskette write protected 


















X 


X 


X 






1 







Return Code 


Operation 


ACC' 


ACQ 


CPY 


EAU 


EOF 


GET' 


QTA 


INV 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 





LIN 


DATA 


ATRID 


NC 


NC 


NC 


NC 


NC 






LIN 


DATA 


LIN 


ATTRS 


NC 


NC 


1 - Truncated 


LIN* 
LIN*" 


DATA* 
DATA*" 


















LIN" 
LIN"* 


DATA* 
DATA"" 


LIN* 


DATA* 






2- EOT/hon PRUFdata 


UN 


DATA 


















LIN 


DATA 










3 - Truncated-EOT^ 


LIN* 


DATA* 


















LIN* 


DATA" 










4 — Shutdown 


NC 
ZERO 


NC 
BLANK 






























5 - Data pending 






















NC 
ZERO 


NC 
BLANK 










6- RVI 


































7 - CLEAR key 


ZERO 


NC 
BLANK 


















ZERO 


NC 
BLANK 










8 " Released 


#INV 


NC 
BLANK 


















iClNV 


NC 
BLANK 










9 - Terminal offline 


NC 


NC 






NC 


NC 


NC 


NC 






NC 
ZERO 


NC 
BLANK 






NC 


NC 


10 -Stop Invite Input 


































ZERO 


BLANK 


11 - Acquire failed 






NC 


NC 


























12 - Chain queue full 


































13 - Insufficient 
TP buffer 


































14 -Chain data 
accepted 


LIN 


DATA 






























15 - Chain data 
truncated 


LIN" 


DATA* 






























-n - All negative 
return codes 


ZERO 


BLANK 






NC 


NC 


NC 


NC 






ZERO 


BLANK 












































Legend: 

, UN 

( UN" 

1 UN"* 
EFFL < #INV 

1 NC 

f ZERO 

^ ATRID 

( DATA 

\ DATA" - 
RECA < DATA"* = 

1 BLANK = 

I ATTRS 


Actual length of input data received in the record area. 

Data was truncated - the value shown is the maximum input length. 

Data was truncated - the value shown is the actual length of data received in the record area. 

Count of outstanding Invite Inputs. 

No change. 

Set to zero by the CCP. 

Attributes Identifier. 

Data received from terminal. 

Data received from terminal up to maximum input length. 

Data received from the terminal, up to the last field that would fit in the record area. 

Set to blanl(s (X'40'1 by the CCP. 

Terminal attributes information (21 positions). 


'The top symbol is for non-DF 
^Notappiicablijfor OFF. 


F program 


s; the bottom 


symt>ol is 


or DFF pro 


grams. 

























Table E-1 1 (Part 1 of 2). Contents of Effective Input Length Field and Record Area Per Operation Type and Return Code 



Return Codes E-1 3 



Return Code 


Operation 


PNW 


PTG'^ 


PUT 


REL 


SHQ 


SPI' 


TCH 


WAT 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 


EFFL 


RECA 





NC 


NC 


NC 
LIN 


NC 
DATA 


NC 


NC 


iCINV 


NC 


NC 


NC 


LIN 


DATA 


NC 


NC 






^ - Truncated 






NC 
LIN' 


NO 
DATA' 


NC 


NC 










LIN" 


DATA* 










2- EOT/Non-PRUFdata 






LIN 


DATA 














LIN 


DATA 










3 - Truncated-EOT'^ 






UN* 


DATA* 














LIN* 


DATA* 










4 - Shutdown 


















NC 


NC 














5 - Data pending 


NC 


NC 


NC 
NC 


NC 
NC 


NC 


NC 






















6-RVI 






NC 


NC 


NC 


NC 






















7 -CLEAR key 








NC 














ZERO 


NC 

BLANK 










ZERO 


8 - Released 








NC 














#INV 


NC 
BLANK 










#INV 


9 - Terminal offline 


NC 


NC 


NC 
NC 


NC 
NC 


NC 


NC 










NC 
ZERO 


NC 
BLANK 










10 -Stop Invite Input 






















NC 


NC 
BLANK 










BLANK 


11 - Acquire failed 


































12 - Chain queue full 


























NC 


NC 






13 - Insufficient 
TP buffer 


























NC 


NC 






14 -Chain data 
accepted 


































15 -Chain data , 
truncated 


































-n - All negative 
return codes 






NC 
ZERO 


NC 
BLANK 


NC 


NC 










ZERO 


BLANK 












































Legend; 

, LIN == Actual length of input data received in the record area. 

i LIN* = Data was truncated - the value shown is the maximum input length. 

1 LIN** = Data was truncated - the value shown is the actual length of data received in the record area. 
EFFL ■! #INV = Count of outstanding Invite Inputs. 

j NC - No change. 

f ZEf)0 - Set to zero by the CCP. 
■ ATRID = Attributes Identifier. 

/ DATA = Data received from terminal. 

\ DATA* = Data received from terminal up to maximum input length 
RECA ' DATA*" = Data received from the terminal, up to the last field that would fit in the record area. 

1 BLANK = Set to blanks (X'40'| by the CCP. 

' ATTRS - Terminal attributes information (21 positions). 


' The top symbol is fornon-DF F 
^The top symbol is for the Put pc 
•'Not applicable for DFF. 


programs; 
rtion of tr 


the bottom s 

e operation 


ymbol is fo 
the bottom 


r DFF progr 
symbol is ft 


ms- 

r the Get p 


ortion of th 


operation. 





















Table E-1 1 (Part 2 of 2). Contents of Effective Input Length Field and Record Area Par Operation Type and Return Code 



E-14 



Index 



$$CCPFILE 

$$CCPFILE, definition B-1 

$$CCPFILE, generation 1-1 

$CCPAU 7-16 

SCCPDT 8-61 

$CC4Z9 7-16 

$ECOM macro 7-19 

$ECPL macro 7-19 

$EEQU macro 7-19 

$ETNT macro 7-19 

$ETRC macro 7-19 

$ETUB macro 7-19 

$NCIO macro 7-8 

$NCIO macro, examples of use 7-12 

SNCOIVI macro 7-1 

$NOPV macro 7-3 

$NPL macro 7-6 

$NPLO macro 7-2 

$NRTV macro 7-3 

$SIT macro 2-16 

-91 return code 6-5 

/FII_E command 3-16 

/NOQ command 2-1 

/OFF command 3-20 

/Q command 2-1 

/RELEASE command 2-3 



ACCEPT (COBOL programming restriction) 4-15 
Accept Input operation 2-27 
Accept Input operation, count of 
outstanding Invite inputs 2-27 
Accept Input operation, data with 

program request 2-28 
Accept Input operation, maximum 

input length 2-27 
Accept Input operation, WIRT programs 3-3 
Accept Input operation, never-ending 

program 3-4 
Accept Input operation, put with Invite 

input consideration 6-1 1 
Accept Input operation, relation to 

Invite input 2-27 
Accept Input operation, RPG II 6-12 
Accept Input operation, when allowed 2-27 
Accept Input operation, 3270 DFF 8-53, 2-27 
Accept Input, for chain task requests 2-28 
access value 

access value, disk files 9-17 
Acquire Terminal operation 2-34 
Acquire Terminal operation, multicomponent 

terminals 2-6 
Acquire Terminal operation, RPG II 6-12 
Acquire Terminal operation, RPG II, 

operation code 6-12 
Acquire Terminal Operation, set 
attributes 2-34 



Acquire Terminal operation, use of third 

parameter list field 2-3 
adding records to disk files 9-8, 9-10 
address of CCP user programs 

(Model 15) 9-1 
address of the record area 2-4 
address table 

address table, relocation 7-17 
AID character 

AID character, definition B-1 
AID character, input record format 

(3270 DFF) 8-20 
allocation 

application programs, system resources 

(see CCP System Reference Manual) 
BSCAIine 2-13 
BSCA switched line 3-1 7 
MLTA lines 2-11 
MLTA switched lines 3-20 
status (Get Attributes) 2-31 
terminals 2-1 
alphameric data, defining (3270 

DFF) 8-17 
alphameric field 
alphameric field, characteristics 

(3270 DFF) 8-5 
alphameric field, characteristics (3270 

DFF), by field type 8-6 
alphameric field, RPG II EXIT/RLABL 

interface 6-25 
answering a call on a switched line 
application program 
application program, allocation (see 

CCP System Reference Manual) 
application program, examples of 

logic 3-8 
application program, standard interface 

to CCP 2-1 
APPLY CORE-INDEX 
APPLY CORE-INDEX, COBOL progrmming 

consideration 4-15 
array 

array name (RPG II) 6-9 
array, parameter 
array, parameter, extension specifications 

(RPG II) 6-9 
array, parameter, FORTRAN 5-2 
array, parameter, loading (RPG II) 
ASCII data 

ASCII data, translation 2-8 
assembler macro support mnotes 
assembler programming for CCP 
assignment 
assignment list program (see 

CCP System Reference Manual) 
assignment sets 1-2 



3-17 



6-9 



7-14 
7-1 



Index X-1 



assignment stage 1-2 
assignment stage, definition B-1 
assignment, control statement considerations 

(3270 OFF) 8-58 
assignment, CPU to CPU considerations A-6 
assignment, program preparation 9-6 
asynchronous communication 2-11 
attention fields (3270 DFF) 8-10 
attention identification (AID) character 

definition B-1 

input rec format (see CCP Messages Manual) 8-20 
attribute character (3270 DFF) 

defining 8-11 

definition B-1 

terminating 8-1 1 
attributes 

identifier 
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determining tlie disk access 

value 9-23 
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comments 8-26, 8-40 
common values, generate equates 

($NCOM macro) 7-1 
Communicating Magnetic Card SELECTRIC 

typewriter 1 -3 
communicating with MLTA terminals 2-12 
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updating 9-8, 9-1 1 
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display control form 8-21 
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Messages Manual) 
maximum number of fields 8-20 
display layout 

examples 8-66, 8-97 
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dual partitions, sharing disk 
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disk files 9-8 
dump, program (see CCP 
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erase indicator 8-46 
ERASE INPUT key (3270) 8-60 
error return code 

(see also return code) 

basic assembler 7-4 

general description 2-2, E-1 

per operation type E-8 
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summary chart 6-7 
file designation (RPG II) 6-8 
file format (RPG II) 6-8 
file management (CCP) (see CCP 
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RPG II 6-11 
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COBOL 4-13 

FORTRAN 5-13 

RPG II EXIT/RLABL 6-29 
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input field class 8-4 
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COBOL 4-7 

FORTRAN 5-5 
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COBOL 4-13 

FORTRAN 5-8 

Get 2-18 

message mode 2-13 
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RPG II 6-11 
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RPG II 6-12 
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line buffer 

definition B-2 

input data transfer 2-7 

New Line and End Line considerations 2-1 1 

space in (Get Terminal Attributes) 2-31 
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3270 DFF operations 8-43 
operator identification card reader 
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example 6-13 
use of third field 2-3 
passward security option, definition B-3 
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point-to-point 

BTAM to CCP example A-8, A-9, A-1 1 
CPU to CPU considerations A-1 
positive (exception) return code 2-2 
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with Invite Input 6-1 1 
Put Block 220 

BSCA output operation 2-15 

RPG II 6-12 
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determining the disk access value 9-19 
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